LineFormat.InsetPen property (Publisher)
Returns or sets an MsoTriState constant indicating whether a specified shape's lines are drawn inside its boundaries. Read/write.
Syntax
expression.InsetPen
expression A variable that represents a LineFormat object.
Return value
MsoTriState
Remarks
An error occurs if you attempt to set this property to msoTrue for any Microsoft Office AutoShape that does not support inset pen drawing.
The value of the InsetPen property for tables is always msoTrue; attempting to set the property to any other value results in an error.
The InsetPen property value can be one of the MsoTriState constants declared in the Microsoft Office type library and shown in the following table.
Constant | Description |
---|---|
msoFalse | Lines are drawn directly on the specified shape's boundaries. |
msoTriStateMixed | A return value indicating a combination of msoTrue and msoFalse for the specified shape range. |
msoTriStateToggle | A set value that switches between msoTrue and msoFalse. |
msoTrue | Lines are drawn inside the specified shape's boundaries. |
Example
The following example adds two rectangles to page one of the active publication, the first with its lines drawn inside its boundaries, and the second with its lines drawn on its boundaries.
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
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.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for