expression.ListPictureBullet
expression Required. An expression that returns a ListFormat object.
Example
This example sets the height and width of the selected picture bullet. This example assumes that the insertion point in the document is located in a paragraph formatted with a picture bullet.
Sub ListPictBullet()
With Selection.Range.ListFormat.ListPictureBullet
.Width = InchesToPoints(Inches:=0.5)
.Height = InchesToPoints(Inches:=0.05)
End With
End Sub