AddOLEObject 方法

       

创建 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。必须为该对象指定 ClassNameFileName 参数,但不能同时指定两个。

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

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

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

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

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

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

示例

本示例将一篇具有链接的 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"