PowerPoint VBA教程:BuildFreeform方法

创建一个任意多边形对象。创建时返回一个代表该任意多边形的FreeformBuilder对象。使用AddNodes方法向该任意多边形添加段。向该任意多边形添加至少一个段后,就可以使用ConvertToShape方法将 FreeformBuilder对象转化为一个Shape对象,该对象具有在 FreeformBuilder对象中定义的几何说明。

expression.BuildFreeform(EditingType, X1, Y1)

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

EditingType  必选。MsoEditingType 类型。第一个结点的编辑属性。
MsoEditingType 可以是下列 MsoEditingType 类型常数之一(不能是 msoEditingSmooth 或 msoEditingSymmetric)。
msoEditingAuto
msoEditingCorner

X1  必选。Single 类型。任意多边形第一个结点相对于幻灯片左边缘的水平位置(以磅为单位)。

Y1  必选。Single 类型。任意多边形第一个结点相对于幻灯片上边缘的垂直位置(以磅为单位)。

VBA示例

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


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.BuildFreeform(EditingType:=msoEditingCorner, _
    X1=360, Y1=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教程:BeginDisconnect方法 下页:PowerPoint VBA教程:CanCheckIn方法

PowerPoint VBA教程:BuildFreeform方法

PowerPoint VBA教程:CanCheckIn方法 PowerPoint VBA教程:CanCheckOut方法
PowerPoint VBA教程:Cell方法 PowerPoint VBA教程:ChangeCase方法
PowerPoint VBA教程:Characters方法 PowerPoint VBA教程:CheckIn方法
PowerPoint VBA教程:CheckOut方法 PowerPoint VBA教程:Clear方法
PowerPoint VBA教程:ClearAll方法 PowerPoint VBA教程:Clone方法
PowerPoint VBA教程:CloneNode方法 PowerPoint VBA教程:Close方法
PowerPoint VBA教程:Colors方法 PowerPoint VBA教程:Convert方法
PowerPoint VBA教程:ConvertToAfterEffect方法 PowerPoint VBA教程:ConvertToAnimateBackground方法
PowerPoint VBA教程:ConvertToAnimateInReverse方法 PowerPoint VBA教程:ConvertToBuildLevel方法
PowerPoint VBA教程:ConvertToShape方法 PowerPoint VBA教程:ConvertToTextUnitEffect方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号