Excel VBA教程:AddNodes方法

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

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

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

MsoSegmentType 可为以下 MsoSegmentType 常量之一。
msoSegmentLine
msoSegmentCurve

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

MsoEditingType 可为以下 MsoEditingType 常量之一。
msoEditingAuto
msoEditingCorner
不能是 msoEditingSmooth 或 msoEditingSymmetric

如果 SegmentType 为 msoSegmentLine,那么 EditingType 就必须是 msoEditingAuto。

X1  Single 类型,必需。

如果新线段的 EditingType 为 msoEditingAuto,那么本参数就以磅为单位指定文档的左上角与新线段的终点之间的水平距离。

如果新节点的 EditingType 为 msoEditingCorner,那么本参数就以磅为单位指定文档的左上角与新线段的第一个控制点之间的水平距离。

Y1  Single 类型,必需。

如果新线段的 EditingType 为 msoEditingAuto,那么本参数就以磅为单位指定文档的左上角与新线段的终点之间的水平距离。

如果新节点的 EditingType 为 msoEditingCorner,那么本参数就以磅为单位指定文档的左上角与新线段的第一个控制点之间的水平距离。

X2  Variant 类型,可选。

如果新线段的 EditingType 为 msoEditingCorner,那么本参数就以磅为单位指定文档的左上角与新线段的第二个控制点之间的水平距离。

如果新线段的 EditingType 为 msoEditingAuto,那么请不要指定本参数的值。

Y2  Variant 类型,可选。

如果新线段的 EditingType 为 msoEditingCorner,那么本参数就以磅为单位指定文档的左上角与新线段的第二个控制点之间的水平距离。

如果新线段的 EditingType 为 msoEditingAuto,那么请不要指定本参数的值。

X3  Variant 类型,可选。

如果新线段的 EditingType 为 msoEditingCorner,那么本参数就以磅为单位指定文档的左上角与新线段的终点之间的水平距离。

如果新线段的 EditingType 为 msoEditingAuto,那么请不要指定本参数的值。

Y3  Variant 类型,可选。

如果新线段的 EditingType 为 msoEditingCorner,那么本参数就以磅为单位指定文档的左上角与新线段的终点之间的垂直距离。

如果新线段的 EditingType 为 msoEditingAuto,那么请不要指定本参数的值。

Excel VBA教程:AddNodes方法·示例

本示例向myDocument 中添加一个带有四个线段的任意多边形。


Set myDocument = Worksheets(1)
With myDocument.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

上页:Excel VBA教程:AddNode方法 下页:Excel VBA教程:AddOLEObject方法

Excel VBA教程:AddNodes方法

Excel VBA教程:AddOLEObject方法 Excel VBA教程:AddPageItem方法
Excel VBA教程:AddPicture方法 Excel VBA教程:AddPolyline方法
Excel VBA教程:AddReplacement方法 Excel VBA教程:AddSet方法
Excel VBA教程:AddShape方法 Excel VBA教程:AddTextbox方法
Excel VBA教程:AddTextEffect方法 Excel VBA教程:AddToFavorites方法
Excel VBA教程:AdvancedFilter方法 Excel VBA教程:Align方法
Excel VBA教程:Apply方法 Excel VBA教程:ApplyCustomType方法
Excel VBA教程:ApplyDataLabels方法 Excel VBA教程:ApplyNames方法
Excel VBA教程:ApplyOutlineStyles方法 Excel VBA教程:AreaGroups方法
Excel VBA教程:Arrange方法 Excel VBA教程:AutoComplete方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号