Question

全部显示

在任意多边形的指定结点后插入一条新段。

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

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

Index必选。Long 类型。新结点的插入位置前的结点。

SegmentType必选。MsoSegmentType 类型。要添加的段的类型。

MsoSegmentType 可以是下列 MsoSegmentType 类型常数之一。

msoSegmentCurve

msoSegmentLine

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

MsoEditingType 可以是下列 MsoEditingType 类型常数之一（不能是msoEditingSmooth 或msoEditingSymmetric）。

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，请不要指定该参数值。

示例

本示例在 myDocument 中第三个形状的第四个结点后添加一个带有一段曲线的平滑结点。第三个形状必须是至少有四个结点的任意多边形。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
    .Insert Index:=4, SegmentType:=msoSegmentCurve, _
        EditingType:=msoEditingSmooth, X1:=210, Y1:=100
End With