Notitie
Voor toegang tot deze pagina is autorisatie vereist. U kunt proberen u aan te melden of de directory te wijzigen.
Voor toegang tot deze pagina is autorisatie vereist. U kunt proberen de mappen te wijzigen.
Returns or sets whether lines are drawn inside the specified shape's boundaries. Read/write.
Syntax
expression.InsetPen
expression A variable that represents a LineFormat object.
Return value
Remarks
msoTrue (-1) if lines are drawn inside the shape's boundaries; otherwise, msoFalse (0).
Example
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.