通过

InlineShape.IsPictureBullet Property

  • 项目
Word Developer Reference

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.

Visual Basic for Applications 
  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.

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

See Also