LineFormat.InsetPen property (Excel)
Returns or sets whether lines are drawn inside the specified shape's boundaries. Read/write.
expression A variable that represents a LineFormat object.
msoTrue (-1) if lines are drawn inside the shape's boundaries; otherwise, msoFalse (0).
The following code example adds two rectangles to the active worksheet, the first with its lines drawn inside its boundaries, and the second with its lines drawn on its boundaries.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.