Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
True indicates that an InlineShape object is a picture bullet. Read-only Boolean.
Syntax
expression .IsPictureBullet
expression An expression that returns a InlineShape object.
Remarks
Although picture bullets are considered inline shapes, searching a document's InlineShapes collection will not return picture bullets.
Example
This example formats the selected list if the list if formatted with a picture bullet. If not, a message is displayed.
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
Use the following code to call the routine above.
Sub CallPic()
Call IsSelectionAPictureBullet(shp:=Selection _
.Range.ListFormat.ListPictureBullet)
End Sub