Propriedade ColorsInUse.Count (Publisher)ColorsInUse.Count Property (Publisher)

Retorna um Long que representa o número de itens na coleção especificada.Returns a Long that represents the number of items in the specified collection.

SintaxeSyntax

expression.expression. ContagemCount

expressão Uma variável que representa um objeto ColorsInUse .expression A variable that represents a ColorsInUse object.

ExemploExample

Este exemplo exibe o número de páginas no documento ativo.This example displays the number of pages in the active document.

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

Este exemplo exibe o número de formas no documento ativo.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