InsetPen Property
MsoTrue to draw lines on the inside of a specified shape. Read/write MsoTriState.
| MsoTriState can be one of these MsoTriState constants. |
| msoCTrue Not used for this property. |
| msoFalse Draws lines centered on a shape's border. |
| msoTriStateMixed Not used for this property. |
| msoTriStateToggle Not used for this property. |
| msoTrue Draws lines on the inside of the shapes |
expression.InsetPen
expression Required. An expression that returns a LineFormat object.
Remarks
Use the InsetPen property to match up the edges of shapes of equal width but whose line widths vary.
Example
This example sets all shapes in the active document to draw lines on the inside of the shapes.
Sub InsetLine()
Dim shpShape As Shape
For Each shpShape In ActiveDocument.Shapes
shpShape.Line.InsetPen = msoTrue
Next shpShape
End Sub