Question

我想问用VBA打开PPT模板(POTX)的时候，用VBA获得这个模板的文件路径。

比如：桌面上有一个PPT模板(POTX),打开就自动转为PPTX了。我想问用VBA打开这个模板的时候，用VBA获得这个模板的文件路径。 (我现在的情况是打开模板，用activepresentation.path取得的路径是空的)

Answer 1

Hi,

以下代码通过调用 PPT 的打开文件对话框并结合筛选器 *.potx 可以成功获取模板路径：

Public Sub GetTemplatePath()
    Dim fd As FileDialog
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    With fd
        With .Filters
            .Clear
            .Add "PowerPoint Template", "*.potx"
        End With
        
        If .Show = -1 Then
            MsgBox .SelectedItems(1)
        End If
    End With
    
    Set fd = Nothing
End Sub

运行效果：