LineFormat.InsetPen 属性 (Excel)
返回或设置线条是否绘制在指定形状的边界以内。 读/写。
语法
表达式。InsetPen
表达 一个代表 LineFormat 对象的变量。
返回值
备注
msoTrue (-1) 如果在形状的边界内绘制线条;否则, msoFalse (0) 。
示例
下面的代码示例将两个矩形添加到活动工作表,第一个矩形的线条绘制在其边界以内,第二个矩形的线条绘制在其边界上。
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
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。