Shapes.AddOLEObject 方法 (PowerPoint)

创建 OLE 对象。 返回一个代表新 OLE 对象的 Shape 对象。

语法

expression。 AddOLEObject( _Left_, _Top_, _Width_, _Height_, _ClassName_, _FileName_, _DisplayAsIcon_, _IconFileName_, _IconIndex_, _IconLabel_, _Link_ )

expression：一个表示 Shapes 对象的变量。

参数

名称	必需/可选	数据类型	说明
Left	可选	Single	新对象左上角相对于幻灯片左上角的位置（以磅为单位）。 默认值为 0（零）。
Top	可选	Single	新对象左上角相对于幻灯片左上角的位置（以磅为单位）。 默认值为 0（零）。
Width	可选	Single	OLE 对象的初始宽度（以磅为单位）。
Height	可选	Single	OLE 对象的初始高度（以磅为单位）。
ClassName	可选	String	OLE 长类名或待创建对象的 ProgID。 必须为该对象指定 ClassName 或 FileName 参数，但不能同时指定两者。
FileName	可选	String	要创建的对象的源文件。 如果未指定路径，则使用当前工作文件夹。 必须为该对象指定 ClassName 或 FileName 参数，但不能同时指定两者。
DisplayAsIcon	可选	MsoTriState	决定是否将 OLE 对象显示为图标。
IconFileName	可选	String	包含将要显示的图标的文件。
IconIndex	可选	Long	IconFileName 中的图标索引。 文件中第一个图标的索引号是 0（零）。 如果具有给定索引编号的图标不存在在 iconfilename 所指定，则使用的图标索引号为 1 (文件中的第二个图标)。 默认值为 0 (零)。
IconLabel	可选	String	显示在图标下面的标签（标题）。
Link	可选	MsoTriState	确定是否将创建它的文件链接的 OLE 对象。 如果您指定了值的类名，此参数必须为 msoFalse 。

返回值

型号

示例

本示例向 myDocument 中添加链接的 Word 文档。

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=200, Height:=300, _ 
    FileName:="c:\my documents\testing.doc", Link:=msoTrue

本示例向 myDocument 中添加新 Microsoft Excel 工作表。 该工作表将显示为图标。

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=200, Height:=300, _ 
    ClassName:="Excel.Sheet", DisplayAsIcon:=True

本示例向 myDocument 中添加命令按钮。

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=150, Height:=50, ClassName:="Forms.CommandButton.1"

另请参阅

Shapes 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。