Excel VBA教程:BuildFreeform方法

创建任意多边形对象。返回一个FreeformBuilder对象,该对象代表正在创建中的任意多边形。可用AddNodes方法向任意多边形添加线段。如果任意多边形中已包含了一个以上的线段,则可用ConvertToShape方法将 FreeformBuilder对象转换为 Shape对象,该对象将具有在 FreeformBuilder对象中定义的几何属性。

expression.BuildFreeform(EditingType, X1, Y1)

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

EditingType  MsoEditingType 类型,必需。第一个节点的编辑属性。

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

X1   Single 类型,必需。相对于文档的左上角,以磅为单位给出任意多边形的第一个节点的位置。

Y1   Single 类型,必需。相对于文档的左上角,以磅为单位给出任意多边形的第一个节点的位置。

Excel VBA教程:BuildFreeform方法·示例

本示例向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教程:BringToFront方法 下页:Excel VBA教程:Calculate方法

Excel VBA教程:BuildFreeform方法

Excel VBA教程:Calculate方法 Excel VBA教程:CalculatedFields方法
Excel VBA教程:CalculatedItems方法 Excel VBA教程:CalculateFull方法
Excel VBA教程:CalculateFullRebuild方法 Excel VBA教程:CancelRefresh方法
Excel VBA教程:CanCheckIn方法 Excel VBA教程:CanCheckOut方法
Excel VBA教程:CentimetersToPoints方法 Excel VBA教程:ChangeFileAccess方法
Excel VBA教程:ChangeLink方法 Excel VBA教程:ChangePassword方法
Excel VBA教程:ChangeScenario方法 Excel VBA教程:Characters方法
Excel VBA教程:ChartGroups方法 Excel VBA教程:ChartObjects方法
Excel VBA教程:ChartWizard方法 Excel VBA教程:CheckAbort方法
Excel VBA教程:CheckIn方法 Excel VBA教程:CheckOut方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号