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