ClassType 属性

返回或设置指定的 OLE 对象、图片或域的类型。String 类型，可读写。

说明

对于除 DDE 链接之外的其他链接对象，本属性是只读的。

在“插入”菜单的“对象”对话框中，在“新建”选项卡上的“对象类型”框中可以看到有效应用程序的列表。将一个对象插入为嵌入式图形，然后查看域代码，可以看到 ClassType 字符串。对象的类型后面都带有单词“EMBED”或“LINK”。

示例

本示例查找活动文档中所有的浮动图形，并将所有链接的 Microsoft Excel 工作表设置为可自动更新。

Dim shapeLoop As Shape

For Each shapeLoop In ActiveDocument.Shapes
    With shapeLoop
        If .Type = msoLinkedOLEObject Then
            If .OLEFormat.ClassType = "Excel.Sheet" Then 
                .LinkFormat.AutoUpdate = True
            End If
        End If
    End With
Next