如果为 True,则表明 InlineShape 对象是图片项目符号。Boolean 类型,只读。
expression.IsPictureBullet
expression 必需。该表达式返回“应用于”列表中的一个对象。
虽然图片项目符号被看作嵌入式图形,但是搜索文档的 InlineShapes 集合并不返回图片项目符号。
如果选定列表的格式被设为图片项目符号,本示例设置该列表的格式,否则,显示一条消息。
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