用于保存 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 对象来引用您的对象。其次，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

用于保存 powerpoint 演示文稿的宏

Macro to save a powerpoint presentation

powerpoint

vba