This topic has not yet been rated - Rate this topic

Shape.TextWrap Property

Office 2007

Returns a WrapFormat object that represents the properties for wrapping text around a shape or shape range.

Syntax

expression.TextWrap

expression A variable that represents a Shape object.

Example

The following example adds an oval to the active publication and specifies that publication text wrap around the left and right sides of the square that circumscribes the oval. There will be a 0.1-inch margin between the publication text and the top, bottom, left side, and right side of the square.

Visual Basic for Applications

Visual Basic for Applications
`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`

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

Community Additions

ADD