Table of contents
TOC
Recolher sumário
Expandir sumário

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

office 365 dev account|Última Atualização: 22/03/2018
|
3 Colaboradores

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

expressão. Contagemexpression. Count

_expression_A 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
© 2018 Microsoft