InsetPen Property

Microsoft Word Visual Basic

Show All

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