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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour