PowerPoint VBA教程: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。必须为该对象指定 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对象链接到创建该对象的文件。

VBA示例

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

上页:PowerPoint VBA教程:AddNodes方法 下页:PowerPoint VBA教程:AddPeriods方法

PowerPoint VBA教程:AddOLEObject方法

PowerPoint VBA教程:AddPeriods方法 PowerPoint VBA教程:AddPicture方法
PowerPoint VBA教程:AddPlaceholder方法 PowerPoint VBA教程:AddPolyline方法
PowerPoint VBA教程:AddShape方法 PowerPoint VBA教程:AddTable方法
PowerPoint VBA教程:AddTextbox方法 PowerPoint VBA教程:AddTextEffect方法
PowerPoint VBA教程:AddTitle方法 PowerPoint VBA教程:AddTitleMaster方法
PowerPoint VBA教程:AddToFavorites方法 PowerPoint VBA教程:Align方法
PowerPoint VBA教程:Apply方法 PowerPoint VBA教程:ApplyTemplate方法
PowerPoint VBA教程:Arrange方法 PowerPoint VBA教程:AutomaticLength方法
PowerPoint VBA教程:Background方法 PowerPoint VBA教程:BeginConnect方法
PowerPoint VBA教程:BeginDisconnect方法 PowerPoint VBA教程:BuildFreeform方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号