Propiedad Shape.TextWrap (Publisher)

Devuelve un objeto WrapFormat que representa las propiedades de ajuste de texto alrededor de una forma o un intervalo de formas.

Sintaxis

expresión. TextWrap

expresión Variable que representa un objeto Shape.

Ejemplo

En el ejemplo siguiente se agrega un óvalo a la publicación activa y se especifica que el texto de la publicación se ajuste alrededor de los lados izquierdo y derecho del cuadrado que circunscribe el óvalo. Habrá un margen de 0,1 pulgadas entre el texto de la publicación y la parte superior, inferior, izquierda y derecha del cuadrado.

Sub SetTextWrapFormatProperties() 
 Dim shpOval As Shape 
 
 Set shpOval = ActiveDocument.Pages(1).Shapes.AddShape(Type:=msoShapeOval, _ 
 Left:=36, Top:=36, Width:=100, Height:=35) 
 With shpOval.TextWrap 
 .Type = pbWrapTypeSquare 
 .Side = pbWrapSideBoth 
 .DistanceAuto = msoFalse 
 .DistanceTop = InchesToPoints(0.1) 
 .DistanceBottom = InchesToPoints(0.1) 
 .DistanceLeft = InchesToPoints(0.1) 
 .DistanceRight = InchesToPoints(0.1) 
 End With 
End Sub

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.