Shapes.Count, propriété (Publisher)

Renvoie une valeur Long qui représente le nombre d’éléments dans la collection spécifiée.

Syntaxe

expression. Compter

expression Variable qui représente un objet Shapes.

Exemple

Cet exemple affiche le nombre de pages du document actif.

Sub CountNumberOfPages() 
 MsgBox "Your publication contains " & _ 
 ActiveDocument.Pages.Count & " page(s)." 
End Sub

Cet exemple affiche le nombre de formes du document actif.

Sub CountNumberOfShapes() 
 Dim intShapes As Integer 
 Dim pg As Page 
 
 For Each pg In ActiveDocument.Pages 
 intShapes = intShapes + pg.Shapes.Count 
 Next 
 
 MsgBox "Your publication contains " & intShapes & " shape(s)." 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.