PowerPoint VBA教程:Insert方法

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

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

VBA示例

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


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

上页:PowerPoint VBA教程:IncrementTop方法 下页:PowerPoint VBA教程:InsertAfter方法

PowerPoint VBA教程:Insert方法

PowerPoint VBA教程:InsertAfter方法 PowerPoint VBA教程:InsertBefore方法
PowerPoint VBA教程:InsertDateTime方法 PowerPoint VBA教程:InsertFromFile方法
PowerPoint VBA教程:InsertSlideNumber方法 PowerPoint VBA教程:InsertSymbol方法
PowerPoint VBA教程:Item方法 PowerPoint VBA教程:LargeScroll方法
PowerPoint VBA教程:Last方法 PowerPoint VBA教程:Lines方法
PowerPoint VBA教程:Load方法 PowerPoint VBA教程:LtrRun方法
PowerPoint VBA教程:Merge方法 PowerPoint VBA教程:MoveAfter方法
PowerPoint VBA教程:MoveBefore方法 PowerPoint VBA教程:MoveNode方法
PowerPoint VBA教程:MoveTo方法 PowerPoint VBA教程:Name方法
PowerPoint VBA教程:NewWindow方法 PowerPoint VBA教程:Next方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号