Блог

Я ссылаюсь на следующее объяснение: https://learn.microsoft.com/en-us/office/vba/word/concepts/miscellaneous/storing-values-when-a-macro-ends

Как я могу адаптировать следующий код для использования в powerpoint? Замена ActiveDocument на ActivePresentaiton , похоже, не помогает.

 Sub AddDocumentVariable()
 ActiveDocument.Variables.Add Name:="Age", Value:=12
End Sub
Sub UseDocumentVariable()
 Dim intAge As Integer
 intAge = ActiveDocument.Variables("Age").Value
End Sub
  

То, как вы сохраните информацию, будет зависеть от того, какой объем необходимо сохранить и что вам нужно с ним сделать позже. Хотя я бы не рекомендовал использовать реестр, текстовый файл стал бы хорошей постоянной записью, к которой можно добавить.

Или вы можете сохранить информацию в .Tags:

 Sub AddTag()
  ActivePresentation.Tags.Add "Name", "12"
End Sub

Sub ReadTag()
  MsgBox ActivePresentation.Tags("Name")
End Sub
  

Вы не можете заменить ActiveDocument на ActivePresentaiton непосредственно для вашего случая. ActivePresentaiton не имеет .Variables свойства.

Мое предложение для Powerpoint — сохранить ваши данные в текстовом файле, чтобы вы могли получить к нему доступ позже, или добавить ваши переменные в реестр. Прочитайте эту ссылку здесь.

Я бы посоветовал провести дополнительные исследования и опубликовать ваш код, чтобы мы могли лучше понять всю вашу проблему.