OLEType 属性

       

返回 OLE 对象类型。可为以下 XlOLEType 常量之一:xlOLELinkxlOLEEmbed。如果对象是链接的(对象存储于文件之外),则本属性返回 xlOLELink,如果对象是内嵌的(对象完全包含于文件之内),则返回 xlOLEEmbedLong 类型,只读。

示例

本示例创建 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