Propiedad TextRange.InlineShapes (Publisher)

Devuelve una colección InlineShapes, que representa las formas en línea contenidas en un intervalo de texto. Solo lectura.

Sintaxis

expresión. InlineShapes

expresión Variable que representa un objeto TextRange .

Valor devuelto

InlineShapes

Observaciones

El uso TextFrame.Story.TextRange.InlineShapes devuelve todas las formas insertadas en un marco de texto, incluidas las que están en desbordamiento.

El uso TextFrame.TextRange.InlineShapes solo devuelve formas insertadas visibles en un marco de texto y no aquellas que están desbordadas.

Ejemplo

En el siguiente ejemplo se busca la primera forma (un cuadro de texto) de la página uno de la publicación activa. La propiedad InlineShapes, a continuación, se usa para determinar si existen formas en línea en el cuadro de texto. Si se encuentra alguna, cada forma entre líneas se voltea verticalmente y su color de primer plano se establece en rojo.

Tenga en cuenta que mediante TextFrame.Story.TextRange.InlineShapes, también se encontrará cualquier forma insertada que esté en desbordamiento.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.