Table of contents
TOC
Collapse the table of content
Expand the table of content

Adjustments.Count Property (Publisher)

office 365 dev account|Last Updated: 8/24/2017
|
3 Contributors

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

Syntax

expression. Count

_expression_A variable that represents an Adjustments 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

See also

Concepts

Adjustments Object

© 2018 Microsoft