返回 OLE 对象类型。可为以下 XlOLEType 常量之一:xlOLELink 或 xlOLEEmbed。如果对象是链接的(对象存储于文件之外),则本属性返回 xlOLELink,如果对象是内嵌的(对象完全包含于文件之内),则返回 xlOLEEmbed。Long 类型,只读。
本示例创建 Sheet1 上 OLE 对象的链接类型列表。该列表将出现在本示例新建的工作表中。
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