返回一个对象,该对象代表指定 OLE 对象的顶层界面。该属性使您可以访问某些应用程序中的属性和方法(OLE 对象在这些应用程序中创建)。只读。
使用 TypeName 函数判断该属性为指定 OLE 对象返回的对象的类型。
本示例显示当前演示文稿第一张幻灯片第一个形状中包含的对象的类型。第一个形状必须包含 OLE 对象。
MsgBox TypeName(ActivePresentation.Slides(1) _
.Shapes(1).OLEFormat.Object)
本示例显示一个应用程序的名称,当前演示文稿第一张幻灯片中每个嵌入的 OLE 对象都在该应用程序中创建。
For Each s In ActivePresentation.Slides(1).Shapes
If s.Type = msoEmbeddedOLEObject Then
MsgBox s.OLEFormat.Object.Application.Name
End If
Next
本示例在 Microsoft Excel 工作簿第一张工作表的 A1 单元格中添加文本,该工作簿包含在当前演示文稿第一张幻灯片的第三个形状中。
With ActivePresentation.Slides(1).Shapes(3)
.OLEFormat.Object.Worksheets(1).Range("A1").Value = "New text"
End With