本示例显示当前演示文稿的路径。

MsgBox ActivePresentation.Path