比如:桌面上有一个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
运行效果:
温馨提示:答案为网友推荐,仅供参考