IsPictureBullet Property

expression.IsPictureBullet

expression    Required. An expression that returns one of the objects in the Applies to list.

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