Word VBA教程:SetEditingType方法

设置由 Index 指定的顶点的编辑类型。如果顶点是曲线段的一个控点,则此方法设置连接两条邻接线段的顶点的编辑类型。注意:由于编辑类型的不同,此方法可能影响相邻顶点的位置。

expression.SetEditingType(Index, EditingType)

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

Index   Long 类型,必需。需要设置编辑类型的顶点。

 EditingType   必需,MsoEditingType。顶点的编辑属性。

MsoEditingType 可以是下列 MsoEditingType 常量之一:
msoEditingAuto
msoEditingCorner
msoEditingSmooth
msoEditingSymmetric

VBA示例

本示例将活动文档中图形 3 的所有角式顶点更改为平滑顶点。第三个图形必须是任意多边形。


Dim lngLoop As lngLoop
With ActiveDocument.Shapes(3).Nodes
    For lngLoop = 1 to .Count
        If .Item(lngLoop).EditingType = msoEditingCorner Then
            .SetEditingType lngLoop, msoEditingSmooth
        End If
    Next lngLoop
End With

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号