.PPT启用宏的显示路径

Question

我试图将演示文稿另存为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" 

的问题是，当我把它保存为一个宏因为“没有活动的演示文稿”，当您将Powerpoint保存为启用宏的演出时，则不会打开“演示文稿”（PowerPoint）窗口，只是幻灯片放映窗口

我需要一种方法找到没有引用activepresentation，不存在的活动显示路径。

谢谢你的时间！

尊敬，达斯汀

Answer 1

既然你还没有回答我对代码运行从那里的问题，我会假设它从PPT中的，并有不涉及其他应用程序。既然如此，这工作得很好，无论是从一个PPTM或PPSM：

Sub MittedForYourApproval() 

' if the code is running within PPT, you don't need to do it this way: 
' PPT has a reference to itself. 
'Dim oPPTApp As PowerPoint.Application 
'Dim oPPRFile As PowerPoint.Presentation 
'Dim oPPTShape As PowerPoint.PlaceholderFormat 
'Dim oPPTSlide As PowerPoint.Slide 

Dim oPPRFile As Presentation 
' I don't know where you're going with this 
' but PlaceholderFormat <> a shape 
Dim oPPTShape As PlaceholderFormat 
Dim oPPTSlide As 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" 
MsgBox spath2 

End Sub