Свойство LineFormat.InsetPen (Publisher)

Возвращает или задает констанду MsoTriState , указывающую, рисуются ли линии указанной фигуры внутри ее границ. Для чтения и записи.

Синтаксис

expression. InsetPen

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

Возвращаемое значение

MsoTriState

Замечания

Ошибка возникает при попытке задать этому свойству значение msoTrue для любого автофигуры Microsoft Office, который не поддерживает рисование пером.

Значение свойства InsetPen для таблиц всегда равно msoTrue; Попытка задать для свойства любое другое значение приводит к ошибке.

Значение свойства InsetPen может быть одной из констант MsoTriState , объявленных в библиотеке типов Microsoft Office и показанных в следующей таблице.

Константа	Описание
msoFalse	Линии рисуются непосредственно на границах указанной фигуры.
msoTriStateMixed	Возвращаемое значение, указывающее сочетание msoTrue и msoFalse для указанного диапазона фигур.
msoTriStateToggle	Заданное значение, переключающееся между msoTrue и msoFalse.
msoTrue	Линии рисуются внутри границ указанной фигуры.

Пример

В следующем примере на одну страницу активной публикации добавляются два прямоугольника: первый с линиями, нарисованными внутри ее границ, а второй — с линиями, нарисованными на ее границах.

Dim shpNew As Shape 
 
With ActiveDocument.Pages(1).Shapes 
 Set shpNew = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=200, Top:=150, Width:=150, Height:=100) 
 With shpNew.Line 
 .Weight = 24 
 .InsetPen = msoTrue 
 End With 
 
 Set shpNew = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=200, Top:=300, Width:=150, Height:=100) 
 With shpNew.Line 
 .Weight = 24 
 .InsetPen = msoFalse 
 End With 
End With

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

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