我正在尝试将演示文稿保存为PowerPoint中的启用宏的节目，并且当我这样做时，我遇到了问题。当我将其保存为演示文稿时，我使用的此代码效果很好 - 但不是作为节目：
Dim oPPTApp As PowerPoint.Application
Dim oPPRFile As PowerPoint.Presentation
Dim oPPTShape As PowerPoint.PlaceholderFormat
Dim oPPTSlide As PowerPoint.Slide
Set oPPTApp = CreateObject("PowerPoint.Application")
oPPTApp.Visible = msoTrue
'opening an existing presentation
Dim spath2 As String
Dim strpath2 As String
spath2 = ActivePresentation.Path <--
strpath2 = spath2 + "\Resources\AIT Diplomas\AIT Diplomas.pptx"
问题在于，当我将其保存为启用宏的节目并尝试运行它时，它会停在＆lt; ---代码行，因为＆＃34;没有活动的演示文稿。当您将powerpoint保存为启用宏的节目时，则没有＆＃34;演示＆＃34; （powerpoint窗口）打开，只是幻灯片窗口。
我需要一种方法来查找没有引用不存在的活动表示的活动节目路径。
感谢您的时间！
尊敬， 达斯汀