本示例显示当前演示文稿的完整名称(包括路径)。

MsgBox ActivePresentation.FullName