Word VBA教程:EditingType属性

如果指定的节点是一个顶点,则此属性的返回值表示修改该顶点对在此顶点连接的两条线段的影响。MsoEditingType,只读。如果此节点是一条曲线段的控点,则此属性返回邻接顶点的编辑类型。

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

expression.EditingType

expression   必需。该表达式返回“应用于”列表中的一个对象。

说明

此属性为只读。可用SetEditingType方法设置此属性的值。

VBA示例

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


Dim docActive As Document
Dim intCount As Integer
Set docActive = ActiveDocument
With docActive.Shapes(3).Nodes
    For intCount = 1 to .Count
        If .Item(intCount).EditingType = msoEditingCorner Then
            .SetEditingType intCount, msoEditingSmooth
        End If
    Next
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号