ListFormat.ListPictureBullet (Word)

Devuelve el objeto InlineShape que representa la imagen utilizada como viñeta en una lista con viñetas de imagen.

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