Propriedade TextRange.InlineShapes (Publisher)

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

Sintaxe

expressão. Formas Inline

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

Valor de retorno

InlineShapes

Comentários

A utilização TextFrame.Story.TextRange.InlineShapes devolve todas as formas inline numa moldura de texto, incluindo as que estão em excesso.

Utilizar TextFrame.TextRange.InlineShapes devolve apenas formas inline visíveis numa moldura de texto e não aquelas que estão em excesso.

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.

Tenha em atenção que, ao utilizar TextFrame.Story.TextRange.InlineShapeso , também serão encontradas formas inline que estejam em excesso.

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.