DisplayAsIcon 属性

如果此属性为 True，则指定对象显示为图标。Boolean 类型，可读写。

示例

本示例显示一个消息框，框内包含活动文档中每个显示为图标的浮动图形名称。

Dim shapeLoop As Shape

For Each shapeLoop In ActiveDocument.Shapes
    If shapeLoop.OLEFormat.DisplayAsIcon Then
        MsgBox shapeLoop.Name & " is displayed as an icon."
    End If
Next shapeLoop

本示例将 Microsoft Excel 工作表作为链接的 OLE 对象插入活动文档，然后将该对象的显示更改为图标方式。

Dim objNew As Object

Set objNew = ActiveDocument.Shapes.AddOLEObject _
    (FileName:="C:\Program Files\Microsoft Office" _
    & "\Office\Samples\samples.xls", LinkToFile:=True)

objNew.OLEFormat.DisplayAsIcon = True