Поделиться через

Свойство Shape.TextWrap (издатель)

  • Статья

Возвращает объект WrapFormat , представляющий свойства для упаковки текста вокруг фигуры или диапазона фигур.

Синтаксис

expression. TextWrap

Выражение Переменная, представляющая объект Shape .

Пример

В следующем примере к активной публикации добавляется овал и указывается, что текст публикации обтекается вокруг левой и правой сторон квадрата, обрезающего овал. Между текстом публикации и верхней, нижней, левой и правой частью квадрата между текстом публикации будет 0,1 дюйма.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.