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

Свойство WrapFormat.DistanceBottom (Publisher)

  • Статья

Если свойство Type объекта WrapFormat имеет значение pbWrapTypeSquare, возвращает или задает значение Variant , представляющее расстояние (в точках) между текстом документа и нижним краем указанной фигуры. Для чтения и записи.

Синтаксис

expression. DistanceBottom

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

Пример

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

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

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

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