如果为 MsoTrue,则在指定图形的内部绘制线条。MsoTriState,可读写。
MsoTriState 可以是下列 MsoTriState 常量之一: |
msoCTrue 不用于该属性。 |
msoFalse 在图形边框的中间绘制线条。 |
msoTriStateMixed 不用于该属性。 |
msoTriStateToggle 不用于该属性。 |
msoTrue 在图形内部绘制线条。 |
expression.InsetPen
expression 必需。该表达式返回一个 LineFormat 对象。
使用 InsetPen 属性可匹配等宽的图形(但线条的宽度不同)的边缘。
本示例设置活动文档中的所有图形在内部绘制线条。
Sub InsetLine()
Dim shpShape As Shape
For Each shpShape In ActiveDocument.Shapes
shpShape.Line.InsetPen = msoTrue
Next shpShape
End Sub