ListFormat.ListPictureBullet (Word)

Renvoie l'objet InlineShape qui représente l'image servant de puce dans une liste de puces images.

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