Syntax

expression.OLEObjects(Index)

expression A variable that represents a Worksheet object.

Parameters

Name Required/Optional Data Type Description
Index Optional Variant The name or number of the OLE object.

Return Value
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.

Visual Basic for Applications 
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

See also: