vba - 使用 VBA 将嵌入的 OLEObject 复制到文件而不打开应用程序

Question

我有一个嵌入了 PPT 的 Excel 文档。我想创建一个 VBA 子程序，将这个文件复制到文件filepath夹中：

Dim PPTApp As PowerPoint.Application
Set PPTApp = New PowerPoint.Application

Dim Filepath As String
Filepath = ActiveWorkbook.Path

Dim File As PowerPoint.Presentation
' Worksheet(1).OLEObjects(1).Verb xlOpen
Set File = Worksheet(1).OLEObjects.Object
File.SaveAs Filepath & "\ppt.pptx", PowerPoint.ppSaveAsOpenXMLPresentation, msoTriStateMixed

如果我留下注释行，我会收到错误：

Run-time error 1004, Unable to get Object Property of OLEObject class

但如果我取消注释，PowerPoint 将在保存文件之前启动。

标签： vba