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

más sencilla.InlineShapes

expresión Variable que representa un objeto TextRange .

Valor devuelto

InlineShapes

Comentarios

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

El uso TextFrame.TextRange.InlineShapes devuelve solo las formas en línea visibles de un marco de texto y no las que están en desbordamiento.

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 al usar TextFrame.Story.TextRange.InlineShapes, también se encontrará cualquier forma en línea 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.