Объект WrapFormat (publisher)

Представляет все свойства для упаковки текста вокруг фигуры или диапазона фигур.

Замечания

Используйте свойство Shape.TextWrap для возврата объекта WrapFormat .

Пример

В следующем примере к активной публикации добавляется овал и указывается, что текст публикации обтекается вокруг левой и правой сторон квадрата, который обрезает овал. Между текстом публикации и верхней, нижней, левой и правой частью квадрата между текстом публикации будет 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

Свойства

• Application
• DistanceAuto
• DistanceBottom
• DistanceLeft
• DistanceRight
• DistanceTop
• Parent
• Side
• Type

См. также

• Справочник по объектной модели издателя

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

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