用于保存幻灯片演示文稿的宏

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_ReviewRelease_Review" & Date & ".pptx"
End Sub