AddOLEObject Method

  • Article

Creates an OLE object. Returns a Shape object that represents the new OLE object.

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

*expression   * Required. An expression that returns a Shapes object.

Left   , Top Optional Float. 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   , Height Optional Float. The initial dimensions 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.

MsoTriState

MsoTriState can be one of these MsoTriState constants.
msoCTrue
msoFalse Default.
msoTriStateMixed
msoTriStateToggle
msoTrue Displays the OLE object as an icon.

IconFileName    Optional String. The file that contains the icon to be displayed.

IconIndex    Optional Integer. The index of the icon within IconFileName. The order of icons in the specified file corresponds to the order in which the icons appear in the Change Icon dialog box (accessed from the Insert Object dialog box when the Display as icon check box is selected). 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.

MsoTriState

MsoTriState can be one of these MsoTriState constants.
msoCTrue
msoFalse Default. Makes the OLE object an independent copy of the file.
msoTriStateMixed
msoTriStateToggle
msoTrue Links the OLE object to the file from which it was created.

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"

Applies to | Shapes Collection Object

See Also | AddMediaObject Method | AddPicture Method | ProgID Property