Word VBA教程:AddNodes方法

本方法将新线段插入到正在创建的任意多边形的尾部,并添加顶点以定义此线段。如果需要,可反复使用此方法将顶点添加至正在创建的任意多边形。添完顶点后可用ConvertToShape方法来创建刚才定义的任意多边形。若要为已创建完的任意多边形添加顶点,请用ShapeNodes集合的Insert方法。

expression.AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

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

SegmentType  MsoSegmentType,必需。要添加的线段的类型。

MsoSegmentType 可以是下列 MsoSegmentType 常量之一:
msoSegmentLine
msoSegmentCurve

EditingType  MsoEditingType,必需。顶点的编辑属性。如果 SegmentType属性为 msoSegmentLine,则 EditingType属性必须为 msoEditingAuto。

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

X1  Single 类型,必需。如果新线段的 EditingType属性为 msoEditingAuto,则此参数指定从文档左上角到新线段终点的水平距离(以磅为单位)。如果新顶点的 EditingType属性为 msoEditingCorner,则此参数指定文档左上角到新线段第一个控制点的水平距离(以磅为单位)。

Y1  Single 类型,必需。如果新线段的 EditingType属性为 msoEditingAuto,则此参数指定从文档左上角到新线段终点的垂直距离(以磅为单位)。如果新顶点的 EditingType属性为 msoEditingCorner,则此参数指定文档从左上角到新线段第一个控制点的垂直距离(以磅为单位)。

X2  Single 类型,可选。如果新线段的 EditingType属性为 msoEditingCorner,则此参数指定从文档左上角到新线段第二个控制点的水平距离(以磅为单位)。如果新线段的 EditingType属性为 msoEditingAuto,则可忽略此参数。

Y2  Single 类型,可选。如果新线段的 EditingType属性为 msoEditingCorner,则此参数指定从文档左上角到新线段第二个控点的垂直距离(以磅为单位)。如果新线段的 EditingType属性为 msoEditingAuto,则可忽略此参数。

X3  Single 类型,可选。如果新线段的 EditingType属性为 msoEditingCorner,则此参数指定从文档左上角到新线段终点的水平距离(以磅为单位)。如果新线段的 EditingType属性为 msoEditingAuto,则可忽略此参数。

Y3  Single 类型,可选。如果新线段的 EditingType属性为 msoEditingCorner,则此参数指定从文档左上角到新线段终点的垂直距离(以磅为单位)。如果新线段的 EditingType属性为 msoEditingAuto,则可忽略此参数。

VBA示例

本示例将一个具有五个顶点的任意多边形添加至活动文档中。


Dim docActive As Document
Set docActive = ActiveDocument
With docActive.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
    .AddNodes msoSegmentCurve, msoEditingCorner, _
        380, 230, 400, 250, 450, 300
    .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
    .AddNodes msoSegmentLine, msoEditingAuto, 480, 400
    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200
    .ConvertToShape
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号