我希望能够从加载项本身的一些 VBA 代码访问 PowerPoint 加载项文件（另存为“PowerPoint 加载项 (*.ppa)”的演示文稿）的文档属性。
如果它有助于理解问题，我实际上想做的是读取存储加载项版本号的自定义文档属性，以便我可以在对话框中显示它。
对于 Word 和 Excel，我可以使用ThisDocument & ThisWorkbook，两者都返回对包含正在运行的代码的文档的引用。然而，没有ThisPresentation相当于 PowerPoint 中的内容。
对于标准的 PowerPoint 演示文稿或模板，我可以使用ActivePresentation。但是，此方法不适用于外接程序。
有任何想法吗？请不要建议我应该在哪里粘贴版本号:-)
和其他人一样，我期望 PowerPoint 中有一个 ThisPresentation 对象。我想到了另一种方法来完成它，无需硬编码文件名。显然，任何代码都需要知道如何区分项目。我选择为此使用项目名称（项目资源管理器中的默认名称“VBAProject”）：它不用于其他任何用途，没有用户会更改它，如果它受到保护，他们就不能更改它。
这是我的代码（将 MyProject 更改为您自己的项目名称）：
Function ThisPresentation() As Presentation
Dim p As Presentation
For Each p In Presentations
If p.VBProject.Name = "MyProject" Then
Set ThisPresentation = p
Exit Function
End If
Next
End Function
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
