vba 获取PPT中当前文件路径

您可以使用 VBA 代码来获取 PowerPoint 中当前文件的路径。以下是一个示例 VBA 代码：

Sub GetCurrentPath()
    ' 获取当前演示文稿的路径
    Dim CurrentPath As String
    CurrentPath = ActivePresentation.Path
    
    ' 显示当前演示文稿的路径
    MsgBox "演示文稿路径：" & CurrentPath
End Sub

您可以将此代码复制到 PowerPoint 的 VBA 编辑器中，然后运行它以获取当前演示文稿的路径。请注意，如果演示文稿尚未保存，则此代码将返回空字符串。