用於保存 PowerPoint 演示文稿的宏

Question

我在 Excel 中嵌入了一個 powerpoint 演示文稿，我正在使用宏打開它，然后我想將打開的演示文稿保存到 C 驅動器

我嘗試了以下代碼，但無法將 powerpoint 保存到所需的目的地。

Sub openppt()

Dim ppPres  As PowerPoint.Presentation
Set ppApp = New PowerPoint.Application
Todate = Date
Sheets("SupportData").Select
ActiveSheet.Shapes.Range(Array("Object 7")).Select
Selection.Verb Verb:=3
activeSlide.SaveAs "C:\Release_Review\" & "Release_Review" & Todate & 
".pptx"
End Sub

我希望打開的幻燈片保存在 C:\Release_Review\ 然后名稱應該是 Release_ReviewTodays_date

Answer 1

首先，您可以使用OLEObject object 引用您的 object。 其次， 3似乎不是一個有效的動詞。 請嘗試以下操作...

Sub openppt()

    Dim oleObj As OLEObject
    Set oleObj = Worksheets("SupportData").OLEObjects("Object 7")

    oleObj.Verb xlVerbOpen

    Dim pres As Object
    Set pres = oleObj.Object

    pres.SaveAs "C:\Release_Review\Release_Review" & Date & ".pptx"

End Sub