AddOLEObject 方法

       

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

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

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

ClassType   Variant 类型,可选。(必须指定 ClassTypeFileName)。该字符串包含要创建的对象的程序标识符。如果指定了 ClassType 参数,则忽略 FileNameLink 参数。有关程序标识符的详细信息,请参阅 OLE 程序标识符

FileName   Variant 类型,可选。指定要创建的对象的源文件。如果未指定路径,则使用当前的工作文件夹。必须指定 ClassTypeFileName 参数,但不能同时指定两者。

Link   Variant 类型,可选。如果该值为 True,则建立 OLE 对象与其源文件之间的链接。如果该值为 False,则 OLE 对象成为其源文件的独立副本。如果为 ClassType 指定了值,则本参数必须为 False。默认值为 False

DisplayAsIcon   Variant 类型,可选。如果该值为 True,则 OLE 显示为图标。默认值为 False

IconFileName   StriVariantng 类型,可选。指定要显示的图标所在的文件。

IconIndex   Variant 类型,可选。指定 IconFileName 内的图标编号。指定文件中图标的顺序与图标在“更改图标”对话框(选中“显示为图标”复选框后,可通过“对象”对话框访问该对话框)中出现的顺序相对应。文件中的第一个图标的编号为 0(零)。如果给定编号的图标在 IconFileName 所指定的文件中不存在,则使用编号为 1 的图标(即文件中的第二个图标)。默认值为 0(零)。

IconLabel   Variant 类型,可选。在图标之下显示的标志(标题)。

Left, Top   Variant 类型,可选。相对于文档的左上角,以磅为单位给出新对象的左上角位置。默认值为 0(零)。

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

示例

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

Set myDocument = Worksheets(1)
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _
    Width:=200, Height:=300, _
    FileName:="c:\my documents\testing.doc", link:=True

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

Set myDocument = Worksheets(1)
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _
    Width:=100, Height:=200, _
    ClassType:="Forms.CommandButton.1"