Propiedad WrapFormat.DistanceRight (Publisher)

Cuando la propiedad Type del objeto WrapFormat se establece en pbWrapTypeSquare, devuelve o establece un valor Variant que representa la distancia (en puntos) entre el texto del documento y el borde derecho de la forma especificada. Lectura y escritura.

Sintaxis

expresión. DistanceRight

expresión Variable que representa un objeto WrapFormat .

Ejemplo

En este ejemplo se agrega un óvalo al documento activo y se especifica que el texto del documento se ajuste a la izquierda y a la derecha del cuadrado que rodea al óvalo. En el ejemplo se establece un margen de 0,1 pulgadas entre el texto del documento y la parte superior e inferior y el lado derecho e izquierdo del cuadrado.

Sub AddNewShape() 
 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.