本示例为 Presentation 对象的父对象设置一个变量,并显示带有变量的对象类型名称的消息框。

Set myObject = ActivePresentation.Parent
MsgBox TypeName(myObject)