Сохранение значений, когда макрос заканчивается для powerpoint

Question

Я ссылаюсь на следующее объяснение: https://docs.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

Answer 1

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

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

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

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

Answer 2

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

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

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