Propriedade InlineShapes.Range (Publisher)

Retorna uma coleção ShapeRange que representa o mesmo conjunto de formas embutidas que a coleção InlineShapes cujo método foi chamado. Isso permite formatações variadas das formas contidas. Somente leitura.

Sintaxe

expressão. Intervalo (Índice)

Expressão Uma variável que representa um objeto InlineShapes .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Índice	Opcional	Long	A posição de índice da forma embutida dentro da coleção ShapeRange.

Exemplo

O exemplo a seguir pesquisa todas as formas da primeira página da publicação, considera todas as formas embutidas dentro de cada forma, localiza a primeira que esteja no intervalo de formas embutidas e a inverte verticalmente.

Dim theShape As Shape 
Dim theShapes As Shapes 
 
Set theShapes = ActiveDocument.Pages(1).Shapes 
 
For Each theShape In theShapes 
 With theShape.TextFrame.TextRange 
 .InlineShapes.Range(1).Flip (msoFlipVertical) 
 End With 
Next

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.