Objeto InlineShapes (Publisher)

  • Artigo

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 está disponível apenas no objeto TextRange :

  • O uso de TextFrame.Story.TextRange.InlineShapes retorna todas as formas embutidas em um quadro de texto, incluindo aquelas que estão em estouro.
  • O uso de TextFrame.TextRange.InlineShapes retorna apenas formas embutidas visíveis em um quadro de texto e não aquelas que estão em estouro.

A coleção InlineShapes também pode ser acessada em Document.Stories(i). TextRange, em que eu é 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.

Use a propriedade InlineShapes do objeto TextRange para retornar uma coleção InlineShapes .

Use o método Item (índice) para retornar uma única forma embutida.

Use o método Shapes.Range para retornar 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.