ListFormat.ListPictureBullet (Word)

Returns the InlineShape object that represents the picture used as a bullet in a picture bulleted list.

Sub ListPictBullet() 
 With Selection.Range.ListFormat.ListPictureBullet 
 .Width = InchesToPoints(Inches:=0.5) 
 .Height = InchesToPoints(Inches:=0.05) 
 End With 
End Sub