在PowerPoint中添加“另存为”命令按钮时出现编译错误求排查

我尝试在PowerPoint演示文稿末尾添加一个“另存为”命令按钮，使用的代码（含部分法语注释）如下：

Private Sub CommandButton1_Click()
    Dim FilePath As String
    Dim FileName As String
    Dim FileFilter As String
    Dim InitialFileName As String

  ' Définir le nom du fichier par défaut
  InitialFileName = "MaPrésentation.pptx"

  ' Définir les types de fichiers pour la boîte de dialogue "Enregistrer sous"
  FileFilter = "Fichiers PowerPoint (*.pptx), *.pptx"

  ' Ouvrir la boîte de dialogue "Enregistrer sous"
  FilePath = Application.GetSaveAsFilename(InitialFileName, FileFilter, 1, "Enregistrer sous")

End Sub

调试时出现报错：

.GetSaveAsFilename "error of compilation / method or data member not found"

问题根源 #

PowerPoint的VBA对象模型中，Application对象并不包含GetSaveAsFilename方法——这个方法是Excel VBA独有的，直接在PowerPoint代码中调用自然会触发编译错误，提示找不到对应的方法或数据成员。

解决方法 #

要在PowerPoint中实现“另存为”功能，可采用以下两种方案：

方案1：使用Office通用的FileDialog对象（推荐，带交互对话框） #

通过FileDialog调用标准的“另存为”对话框，代码修改如下：

Private Sub CommandButton1_Click()
    Dim dlgSave As FileDialog
    Dim InitialFileName As String
    
    ' 设置默认文件名
    InitialFileName = "MaPrésentation.pptx"
    
    ' 创建保存类型的对话框实例
    Set dlgSave = Application.FileDialog(msoFileDialogSaveAs)
    
    With dlgSave
        .InitialFileName = InitialFileName
        ' 设置筛选器为.pptx格式（FilterIndex=2对应Office默认的.pptx选项，可按需调整）
        .FilterIndex = 2
        ' 显示对话框，若用户点击“确定”则执行保存
        If .Show = -1 Then
            ActivePresentation.SaveAs .SelectedItems(1)
        End If
    End With
    
    ' 释放对象资源
    Set dlgSave = Nothing
End Sub

方案2：直接调用演示文稿的SaveAs方法（无交互，指定路径保存） #

如果不需要弹窗选择保存路径，可直接使用ActivePresentation.SaveAs完成保存：

Private Sub CommandButton1_Click()
    Dim savePath As String
    ' 替换为你需要的保存路径和文件名
    savePath = "C:\Exemples\MaPrésentation.pptx"
    ' 以.pptx格式保存（ppSaveAsOpenXMLPresentation对应格式常量）
    ActivePresentation.SaveAs savePath, ppSaveAsOpenXMLPresentation
End Sub

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