Freigeben über

Shape.TextWrap-Eigenschaft (Publisher)

  • Artikel

Gibt ein WrapFormat -Objekt, das die Eigenschaften für den Textumbruch um eine Form oder einen Formbereich darstellt.

Syntax

Ausdruck. TextWrap

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Beispiel

Das folgende Beispiel fügt der aktiven Publikation ein Oval hinzu und gibt an, dass der Publikationstext um die linke und rechte Seite des Quadrats umbrochen wird, das das Oval umschließt. Es wird ein Rand von 0,1 Zoll zwischen der Text der Publikation und die oben, unten, links und rechts neben dem Quadrat vorhanden sein.

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

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.