Word VBA教程:InsetPen属性

如果为 MsoTrue,则在指定图形的内部绘制线条。MsoTriState,可读写。

MsoTriState 可以是下列 MsoTriState 常量之一:
msoCTrue 不用于该属性。
msoFalse 在图形边框的中间绘制线条。
msoTriStateMixed 不用于该属性。
msoTriStateToggle 不用于该属性。
msoTrue 在图形内部绘制线条。

expression.InsetPen

expression   必需。该表达式返回一个LineFormat对象。

说明

使用 InsetPen属性可匹配等宽的图形(但线条的宽度不同)的边缘。

VBA示例

本示例设置活动文档中的所有图形在内部绘制线条。


Sub InsetLine()
    Dim shpShape As Shape
    For Each shpShape In ActiveDocument.Shapes
        shpShape.Line.InsetPen = msoTrue
    Next shpShape
End Sub

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号