WrapFormat.DistanceLeft-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 linken Rand der angegebenen Form darstellt. Lese-/Schreibzugriff.
Syntax
Ausdruck. DistanceLeft
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.