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

Статья
04/07/2023

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

Синтаксис

expression. InsetPen

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

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

MsoTriState

Замечания

msoTrue (-1), если линии рисуются внутри границ фигуры; в противном случае — msoFalse (0).

Пример

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

Dim shpNew As Shape 
 
With ActiveSheet.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 и обратная связь.

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