ListFormat.ListPictureBullet (Word)

Retorna o objeto InlineShape que representa a imagem usada como um marcador em uma lista de marcadores de imagens.

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