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

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

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


运行效果:

温馨提示:答案为网友推荐,仅供参考

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网