Shapes.AddOLEObject Method (PowerPoint)
Creates an OLE object. Returns a Shape object that represents the new OLE object.
Syntax
expression .AddOLEObject(Left, Top, Width, Height, ClassName, FileName, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Link)
expression A variable that represents a Shapes object.
Parameters
Name |
Required/Optional |
Data Type |
Description |
|---|---|---|---|
Left |
Optional |
Single |
The position (in points) of the upper-left corner of the new object relative to the upper-left corner of the slide. The default value is 0 (zero). |
Top |
Optional |
Single |
The position (in points) of the upper-left corner of the new object relative to the upper-left corner of the slide. The default value is 0 (zero). |
Width |
Optional |
Single |
The initial width of the OLE object, in points. |
Height |
Optional |
Single |
The initial height of the OLE object, in points. |
ClassName |
Optional |
String |
The OLE long class name or the ProgID for the object that's to be created. You must specify either the ClassName or FileName argument for the object, but not both. |
FileName |
Optional |
String |
The file from which the object is to be created. If the path isn't specified, the current working folder is used. You must specify either the ClassName or FileName argument for the object, but not both. |
DisplayAsIcon |
Optional |
MsoTriState |
Determines whether the OLE object will be displayed as an icon. |
IconFileName |
Optional |
String |
The file that contains the icon to be displayed. |
IconIndex |
Optional |
Long |
The index of the icon within IconFileName. The first icon in the file has the index number 0 (zero). If an icon with the given index number doesn't exist in IconFileName, the icon with the index number 1 (the second icon in the file) is used. The default value is 0 (zero). |
IconLabel |
Optional |
String |
A label (caption) to be displayed beneath the icon. |
Link |
Optional |
MsoTriState |
Determines whether the OLE object will be linked to the file from which it was created. If you specified a value for ClassName, this argument must be msoFalse. |
Return Value
Shape
Example
This example adds a linked Word document to 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
This example adds a new Microsoft Excel worksheet to myDocument. The worksheet will be displayed as an icon.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _
Width:=200, Height:=300, _
ClassName:="Excel.Sheet", DisplayAsIcon:=True
This example adds a command button to myDocument.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _
Width:=150, Height:=50, ClassName:="Forms.CommandButton.1"