Publisher.ShapeNodes.Count.md

title	keywords	f1_keywords	api_name	ms.assetid	ms.date	ms.localizationpriority
ShapeNodes.Count property (Publisher)	vbapb10.chm3473411	vbapb10.chm3473411	Publisher.ShapeNodes.Count	5b259584-0aad-57bd-4848-cc7f6e96d430	06/14/2019	medium

ShapeNodes.Count property (Publisher)

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

Syntax

expression.Count

expression A variable that represents a ShapeNodes object.

Example

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 
 Next 
 
 MsgBox "Your publication contains " & intShapes & " shape(s)." 
End Sub

[!includeSupport and feedback]