.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