Share via


OLEObjects Method

Returns an object that represents either a single OLE object (an OLEObject) or a collection of all OLE objects (an OLEObjects collection) on the chart or sheet. Read-only.

expression**.OLEObjects(Index)**

expression   Required. An expression that returns a Chart or Worksheet object.

Index   Optional Variant. The name or number of the OLE object.

Example

This example creates a list of link types for OLE objects on Sheet1. The list appears on a new worksheet created by the example.

  Set newSheet = Worksheets.Add
i = 2
newSheet.Range("A1").Value = "Name"
newSheet.Range("B1").Value = "Link Type"
For Each obj In Worksheets("Sheet1").OLEObjects
    newSheet.Cells(i, 1).Value = obj.Name
    If obj.OLEType = xlOLELink Then
        newSheet.Cells(i, 2) = "Linked"
    Else
        newSheet.Cells(i, 2) = "Embedded"
    End If
    i = i + 1
Next