Excel VBA教程:AddOLEObject方法

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

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

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

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

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

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对象的初始尺寸。

Excel VBA教程:AddOLEObject方法·示例

本示例向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"

上页:Excel VBA教程:AddNodes方法 下页:Excel VBA教程:AddPageItem方法

Excel VBA教程:AddOLEObject方法

Excel VBA教程:AddPageItem方法 Excel VBA教程:AddPicture方法
Excel VBA教程:AddPolyline方法 Excel VBA教程:AddReplacement方法
Excel VBA教程:AddSet方法 Excel VBA教程:AddShape方法
Excel VBA教程:AddTextbox方法 Excel VBA教程:AddTextEffect方法
Excel VBA教程:AddToFavorites方法 Excel VBA教程:AdvancedFilter方法
Excel VBA教程:Align方法 Excel VBA教程:Apply方法
Excel VBA教程:ApplyCustomType方法 Excel VBA教程:ApplyDataLabels方法
Excel VBA教程:ApplyNames方法 Excel VBA教程:ApplyOutlineStyles方法
Excel VBA教程:AreaGroups方法 Excel VBA教程:Arrange方法
Excel VBA教程:AutoComplete方法 Excel VBA教程:AutoFill方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号