Shapes.Count property (Publisher)

Returns a Long that represents the number of items in the specified collection.



expression A variable that represents a Shapes object.


This example displays the number of pages in the active document.

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

This example displays the number of shapes in the active document.

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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.