如何获取VBA模块所属PowerPoint演示文稿的引用？

在PowerPoint VBA中，要获取宏定义所在的演示文稿，无需依赖文件名或激活状态，直接使用内置对象ThisPresentation即可，这正是你想要的“宏定义上下文”指向。

实现代码 #

Sub MyMacro()
    Dim myPresentation As Presentation
    Set myPresentation = ThisPresentation
    
    ' 示例操作：对目标演示文稿进行编辑
    MsgBox "宏所在演示文稿名称：" & myPresentation.Name
    myPresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = "已更新内容"
End Sub

方案优势 #

• ThisPresentation是PowerPoint VBA的内置对象，始终指向包含当前宏代码的演示文稿，完全不受文件重命名、窗口激活状态的影响。
• 无需切换窗口或处理文件名变更导致的错误，直接对目标演示文稿操作，避免了不必要的界面干扰。

模块级关联的替代写法 #

如果需要在模块中通过代码上下文关联获取，也可以借助VBProject属性实现：

Function GetHostPresentation() As Presentation
    Set GetHostPresentation = Application.Presentations(VBA.ActiveVBProject.Name)
End Function

不过ThisPresentation是最直接且推荐的方式，代码更简洁、可读性更高。

内容的提问来源于stack exchange，提问作者Pinke Helga