Compartilhar via

Propriedade TextRange.InlineShapes (Publisher)

  • Artigo

Retorna uma coleção InlineShapes, que representa as formas embutidas contidas em um intervalo de texto. Somente leitura.

Sintaxe

expressão. Inlineshapes

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

Valor de retorno

InlineShapes

Comentários

O uso TextFrame.Story.TextRange.InlineShapes retorna todas as formas embutidas em um quadro de texto, incluindo aquelas que estão em estouro.

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

Exemplo

O exemplo a seguir localiza a primeira forma (uma caixa de texto) na página um da publicação ativa. A propriedade InlineShapes, em seguida, é usada para determinar se qualquer forma embutida existe na caixa de texto. Se qualquer forem encontradas, cada forma embutida está invertida verticalmente e sua cor de primeiro plano é definida para vermelho.

Observe que, usando TextFrame.Story.TextRange.InlineShapes, todas as formas embutidas que estão em estouro também serão encontradas.

Dim theShape As Shape 
Dim i As Integer 
 
Set theShape = ActiveDocument.Pages(1).Shapes(1) 
 
With theShape.TextFrame.Story.TextRange 
 If .InlineShapes.Count > 0 Then 
 For i = 1 To .InlineShapes.Count 
 .InlineShapes(i).Flip (msoFlipVertical) 
 .InlineShapes(i).Fill.ForeColor.RGB = vbRed 
 Next 
 End If 
End With

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.