Freigeben über

WrapFormat.DistanceBottom-Eigenschaft (Publisher)

  • Artikel

Wenn die Type-Eigenschaft des WrapFormat-Objekts auf pbWrapTypeSquare festgelegt ist, gibt oder legt einen Variant-Wert fest, der den Abstand (in Punkt) zwischen dem Dokumenttext und dem unteren Rand der angegebenen Form darstellt. Lese-/Schreibzugriff.

Syntax

Ausdruck. DistanceBottom

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.