PowerPoint VBA教程:AddNodes方法

在正在创建的任意多边形的末尾插入一个新段并添加定义该段的结点。可以使用该方法任意多次地为正在创建的任意多边形添加结点。当添加完结点后,使用ConvertToShape方法创建刚定义的任意多边形。若要给创建好的任意多边形添加结点,请使用ShapeNodes集合的Insert方法。

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

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

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

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

EditingType  必选。MsoEditingType 类型。该顶点的编辑属性;如果 SegmentType 是 msoSegmentLine,则 EditingType 必须为 msoEditingAuto。

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示例

本示例在当前演示文稿的第一张幻灯片中添加一个具有五个顶点的任意多边形。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
    .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingCorner, _
        X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300
    .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingAuto, _
        X1:=480, Y1:=200
    .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _
        X1:=480, Y1:=400
    .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _
        X1:=360, Y1:=200
    .ConvertToShape
End With

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

PowerPoint VBA教程:AddNodes方法

PowerPoint VBA教程:AddOLEObject方法 PowerPoint VBA教程:AddPeriods方法
PowerPoint VBA教程:AddPicture方法 PowerPoint VBA教程:AddPlaceholder方法
PowerPoint VBA教程:AddPolyline方法 PowerPoint VBA教程:AddShape方法
PowerPoint VBA教程:AddTable方法 PowerPoint VBA教程:AddTextbox方法
PowerPoint VBA教程:AddTextEffect方法 PowerPoint VBA教程:AddTitle方法
PowerPoint VBA教程:AddTitleMaster方法 PowerPoint VBA教程:AddToFavorites方法
PowerPoint VBA教程:Align方法 PowerPoint VBA教程:Apply方法
PowerPoint VBA教程:ApplyTemplate方法 PowerPoint VBA教程:Arrange方法
PowerPoint VBA教程:AutomaticLength方法 PowerPoint VBA教程:Background方法
PowerPoint VBA教程:BeginConnect方法 PowerPoint VBA教程:BeginDisconnect方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号