LineFormat.InsetPen 属性 (Excel)

返回或设置线条是否绘制在指定形状的边界以内。 读/写。

语法

表达式InsetPen

表达 一个代表 LineFormat 对象的变量。

返回值

MsoTriState

备注

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 支持和反馈,获取有关如何接收支持和提供反馈的指南。