Question

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

expression.AddOLEObject(Left,Top,Width,Height,ClassName,FileName,DisplayAsIcon,IconFileName,IconIndex,IconLabel,Link)

expression必选。该表达式返回一个Shapes 对象。

Left,Top可选。Float 类型。新对象左上角相对于幻灯片左上角的位置，以磅为单位。默认值为 0（零）。

Width,Height可选。Float 类型。OLE 对象的初始尺寸，以磅为单位。

ClassName可选。String 类型。OLE 长类名或要创建对象的 ProgID。必须为该对象指定ClassName 或FileName 参数，但不能同时指定两个。

FileName可选。String 类型。创建对象所依据的文件。如果未指定路径，则使用当前工作文件夹。必须为该对象指定ClassName 或FileName 参数，但不能同时指定两个。

DisplayAsIcon可选。MsoTriState 类型。决定是否将 OLE 对象显示为图标。

MsoTriState 可以是下列 MsoTriState 类型常数之一。

msoCTrue

msoFalse 默认。

msoTriStateMixed

msoTriStateToggle

msoTrue将 OLE 对象显示为图标。

IconFileName可选。String 类型。包含要显示的图标的文件。

IconIndex可选。Integer 类型。IconFileName 中的图标索引。指定文件中的图标顺序对应于图标在“更改图标”对话框（选中“显示为图标”复选框时，从“插入对象”对话框访问）中显示的顺序。文件中第一个图标的索引序号是 0（零）。如果IconFileName 中不存在给定索引序号的图标，则使用索引序号为 1 的图标（文件中的第二个图标）。默认值为 0（零）。

IconLabel可选。String 类型。要在图标下显示的标签（标题）。

Link可选。MsoTriState 类型。 决定是否将 OLE 对象链接到创建该对象的文件。如果已指定ClassName 的值，此参数必须是msoFalse 类型。

MsoTriState 可以是下列 MsoTriState 类型常数之一。

msoCTrue

msoFalse 默认。使 OLE 对象成为独立复的制文件。

msoTriStateMixed

msoTriStateToggle

msoTrue将 OLE 对象链接到创建该对象的文件。

示例

本示例将一篇具有链接的 Word 文档添加到myDocument。

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

本示例将一个新 Microsoft Excel 工作表添加到myDocument。该工作表将显示为图标。

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"