Propriedade Shape.InlineTextRange (Publisher)

Retorna um objeto TextRange que reflete a posição da forma embutida no intervalo de texto que a contém. Somente leitura.

Sintaxe

expressão. InlineTextRange

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

Comentários

O intervalo de texto retornado contém um único objeto que representa a forma embutida. Um erro de automação será retornado se a forma não estiver embutida.

Exemplo

O exemplo a seguir localiza a primeira forma (uma caixa de texto) na primeira página da publicação e determina se o intervalo de texto dentro da caixa de texto contém formas embutidas. Se forem encontradas formas embutidas, a propriedade InlineTextRange é usada para representar a forma embutida depois que um bloco de texto é inserido.

Dim theShape As Shape 
Dim theTextRange As TextRange 
Dim i As Integer 
 
Set theShape = ActiveDocument.Pages(1).Shapes(1) 
 
If Not theShape.IsInline = True Then 
 With theShape.TextFrame.Story.TextRange 
 If .InlineShapes.Count > 0 Then 
 Set theTextRange = theShape.TextFrame.Story.TextRange 
 For i = 1 To .InlineShapes.Count 
 With .InlineShapes(i) 
 .InlineTextRange.InsertAfter (" (Figure " & i & ") ") 
 End With 
 Next 
 End If 
 End With 
End If

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.