Freigeben über


WrapFormat.DistanceRight-Eigenschaft (Publisher)

Wenn die Type-Eigenschaft des WrapFormat-Objekts auf pbWrapTypeSquare festgelegt ist, wird ein Variant-Wert zurückgegeben oder festgelegt, der den Abstand (in Punkt) zwischen dem Dokumenttext und dem rechten Rand der angegebenen Form darstellt. Lese-/Schreibzugriff.

Syntax

Ausdruck. DistanceRight

Ausdruck Eine Variable, die ein WrapFormat-Objekt darstellt.

Beispiel

In diesem Beispiel wird dem aktiven Dokument ein Oval hinzugefügt und angegeben, dass der Dokumenttext das Oval entlang des umliegenden Quadrats rechts und links umfließt. Es wird festgelegt, dass der Abstand zwischen dem Dokumenttext und allen Seiten des Quadrats 0,1 Zoll beträgt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.