Word VBA教程:IsPictureBullet属性

如果为 True,则表明InlineShape对象是图片项目符号。Boolean 类型,只读。

expression.IsPictureBullet

expression   必需。该表达式返回“应用于”列表中的一个对象。

说明

虽然图片项目符号被看作嵌入式图形,但是搜索文档的InlineShapes集合并不返回图片项目符号。

VBA示例

如果选定列表的格式被设为图片项目符号,本示例设置该列表的格式,否则,显示一条消息。


Sub IsSelectionAPictureBullet(shp As InlineShape)
    On Error GoTo ErrorHandler
    If shp.IsPictureBullet = True Then
            shp.Width = InchesToPoints(0.5)
            shp.Height = InchesToPoints(0.05)
    End If
    Exit Sub
ErrorHandler:
    MsgBox "The selection is not a list or " & _
        "does not contain picture bullets."
End Sub

使用下列代码调用以上程序。


Sub CallPic()
    Call IsSelectionAPictureBullet(shp:=Selection _
        .Range.ListFormat.ListPictureBullet)
End Sub

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号