Partager via


Propriété ShapeNodes.Count (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 ShapeNodes .

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.