在ppt中用VBA怎么取得当前PPT的路径地址？

可以通过ActivePresentation对象的Path属性获取路径地址

1）新建一个PPT,插入一个命令按钮，保存为PPTM格式文件。右键单击按钮，查看代码：

2）编辑按钮事件代码如下：

Private Sub CommandButton1_Click()
    MsgBox ActivePresentation.Path
End Sub

3）回到PPT视图，按F5进入播放状态，单击按钮，即会跳出消息框提示文件路径