Word VBA教程:DisplayAsIcon属性

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号