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

您不能直接将ActiveDocument替换为ActivePresentaiton。 ActivePresentaiton没有.Variables属性。

我对Powerpoint的建议是将数据保存在.txt文件中，以便以后可以访问它，或者将变量添加到注册表中。在此处阅读this link。

我建议您进行更多研究，并发布您的代码，以便我们更好地帮助您了解整个问题。

Answer 2

信息的存储方式将取决于要存储多少以及以后需要做什么。虽然我不建议您使用注册表，但文本文件会构成一个很好的永久记录，可以附加到记录中。

或者您可以将信息存储在.Tags中：

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

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

Powerpoint宏结束时存储值

2 个答案: