Compartilhar via

Objeto InlineShapes (Publisher)

Contém uma coleção de objetos Shape, que representam os objetos na camada de desenho, onde IsInline é True. A coleção de formas é limitada a formas de um determinado intervalo de texto.

Comentários

A coleção InlineShapes só está disponível no objeto TextRange :

  • A utilização de TextFrame.Story.TextRange.InlineShapes devolve todas as formas inline numa moldura de texto, incluindo as que estão em excesso.
  • A utilização de TextFrame.TextRange.InlineShapes devolve apenas formas inline visíveis numa moldura de texto e não aquelas que estão em excesso.

A coleção InlineShapes também pode ser acedida a partir de Document.Stories(i). TextRange, onde i é o índice para a página ativa da publicação.

A coleção InlineShapes não está disponível na coleção ShapeRange, incluindo seu contidos ShapeRange.

Utilize a propriedade InlineShapes do objeto TextRange para devolver uma coleção InlineShapes .

Utilize o método Item (índice) para devolver uma única forma inline.

Utilize o método Shapes.Range para devolver um objeto ShapeRange que contém todos os membros da coleção InlineShapes . Uma matriz de índices ou cadeias de caracteres ou um único índice ou a cadeia de caracteres pode ser passada como um parâmetro da propriedade Range para selecionar formas específicas ou uma forma dentro do intervalo.

Exemplo

O exemplo a seguir localiza a primeira forma, uma caixa de texto na página um da publicação e o acrescenta texto até o final do intervalo de texto na caixa de texto, se houver mais de uma forma embutida dentro do intervalo de texto.

Dim theShape As Shape 
 
Set theShape = ActiveDocument.Pages(1).Shapes(1) 
 
With theShape.TextFrame.TextRange 
 If .InlineShapes.Count > 1 Then 
 .InsertAfter (" There is more than one inline shape in this text box.") 
 End If 
End With

O exemplo a seguir localiza a terceira forma embutida dentro de uma caixa de texto e a inverte verticalmente.

Dim theShape As Shape 
 
Set theShape = ActiveDocument.Pages(1).Shapes(1) 
 
With theShape.TextFrame.Story.TextRange 
 With .InlineShapes(3) 
 .Flip (msoFlipVertical) 
 End With 
End With

O exemplo a seguir define uma variável de ShapeRange igual à coleção de formas embutidas que existem dentro de uma caixa de texto. Cada forma embutida dentro do intervalo é então modificada de alguma maneira. Este exemplo pressupõe que a primeira forma na página seja uma caixa de texto que contém três formas embutidas.

Dim theRange As ShapeRange 
 
Set theRange = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.Story.TextRange.InlineShapes.Range 
 
With theRange 
 .Item(1).Flip msoFlipVertical 
 .Item(2).MoveOutOfTextFlow 
 .Item(3).Delete 
End With

Métodos

Propriedades

Confira também

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.

  • Last updated on