excel 保存为演示文稿中的VBA脚本

tp5buhyn 于 2023-08-08 发布在其他

关注(0)|答案(1)|浏览(123)

我试图创建一个Visual Basic脚本，调用时，将打开一个保存为对话框在PowerPoint文件中，与SVG格式选项预选。该脚本必须可由函数执行，并且可以在最新版本的Microsoft Office上运行。
我尝试了以下方法，但在方法中出现了一个错误：第一个月

Sub SaveAsSVG()
    Dim SavePath As Variant
    Dim FileFormat As Integer
    
    FileFormat = 18 
    
    SavePath = Application.GetSaveAsFilename("", "Scalable Vector Graphics (*.svg), *.svg", , "Save As SVG")
    
    If SavePath <> "False" Then
        ActivePresentation.SaveAs SavePath, FileFormat
    End If
End Sub

字符串

excel

来源：https://stackoverflow.com/questions/76730515/vba-script-to-save-as-in-presentation

1条答案

按热度按时间

nqwrtyyt1#

就像John Korchok说的
GetSaveAsFileName是Excel方法，而不是PowerPoint方法。
如果必须使用此方法，则应在调用此方法之前启动Excel应用程序示例，因此您的代码应改为如下所示，并且您将不再看到
方法中的错误：Application.GetSaveAsFilename个

Sub SaveAsSVG()
    Dim SavePath As Variant
    Dim FileFormat As Integer
    
    Dim excelApp As Object
    Set excelApp = CreateObject("excel.application")
    
    FileFormat = 18
    
    'SavePath = Application.GetSaveAsFilename("", "Scalable Vector Graphics (*.svg), *.svg", , "Save As SVG")
    SavePath = excelApp.GetSaveAsFilename("", "Scalable Vector Graphics (*.svg), *.svg", , "Save As SVG")
    
    If SavePath <> "False" Then
        ActivePresentation.SaveAs SavePath, FileFormat
    End If
End Sub

字符串

赞(0）回复(0）举报 2023-08-08

我来回答

excel 保存为演示文稿中的VBA脚本

1条答案

相关问题

热门标签

最新问答