开发PowerPoint可执行VBA脚本：预选SVG格式另存为对话框报错求助

问题分析 #

原代码的核心问题：

• 错误将GetSaveAsFilename的取消返回值（布尔值False）与字符串"False"做比较，导致逻辑判断失效。
• 硬编码文件格式数值18缺乏可读性，新版Office中建议使用内置常量提升兼容性。
• 部分新版Office环境中，Application.GetSaveAsFilename可能因API变更或安全限制出现异常。

修复后的代码方案 #

方案1：修正GetSaveAsFilename调用逻辑 #

Sub SaveAsSVG()
    Dim SavePath As Variant
    ' 使用内置常量替代硬编码数值，兼容新版Office
    Const FileFormat As Long = ppSaveAsSVG
    
    ' 调用另存为对话框，指定SVG为默认格式
    SavePath = Application.GetSaveAsFilename( _
        FileFilter:="Scalable Vector Graphics (*.svg), *.svg", _
        Title:="Save As SVG")
    
    ' 正确判断用户是否取消操作（返回布尔值则代表取消）
    If Not IsBoolean(SavePath) Then
        ActivePresentation.SaveAs SavePath, FileFormat
    End If
End Sub

方案2：使用FileDialog实现（推荐，兼容性更强） #

FileDialog在新版Office中稳定性更好，支持更多自定义设置：

Sub SaveAsSVG_Stable()
    Dim fd As FileDialog
    Dim SavePath As String
    
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    
    With fd
        .Title = "Save As SVG"
        ' 添加并选中SVG格式选项
        .FilterIndex = .Filters.Add("Scalable Vector Graphics", "*.svg")
        ' 设置默认文件名（可选）
        .FileName = Left(ActivePresentation.Name, InStrRev(ActivePresentation.Name, ".") - 1) & ".svg"
        
        If .Show = -1 Then ' 用户点击保存
            SavePath = .SelectedItems(1)
            ' 强制补全.svg后缀，避免用户误删
            If LCase(Right(SavePath, 4)) <> ".svg" Then
                SavePath = SavePath & ".svg"
            End If
            ActivePresentation.SaveAs SavePath, ppSaveAsSVG
        End If
    End With
    
    Set fd = Nothing
End Sub

注意事项 #

• 启用宏：依次打开「文件→选项→信任中心→信任中心设置→宏设置」，选择合适的宏启用选项。
• 若ppSaveAsSVG提示未定义，可直接替换为数值18，但优先使用常量提升代码可读性。

内容的提问来源于stack exchange，提问作者focuser