Word VBA教程:BuildFreeform方法

建立一个任意多边形对象。返回一个FreeformBuilder对象,该对象代表正在建立的任意多边形。用AddNodes方法向任意多边形添加线段。当您向任意多边形中添加了至少一条线段后,就可以用ConvertToShape方法将 FreeformBuilder对象转化成 Shape对象,此对象具有 FreeformBuilder 中定义的几何描述特性。

expression.BuildFreeform(EditingType, X1, Y1)

expression   必需。该表达式返回一个 Shapes对象。

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

MsoEditingType 可以是下列 MsoEditingType 常量之一(不能取 msoEditingSmooth 或 msoEditingSymmetric):
msoEditingAuto
msoEditingCorner

X1,Y1   Single 类型,必需。任意多边形第一个顶点相对于文档左上角的位置。

VBA示例

本示例将一个具有五个顶点的任意多边形添加到活动文档中。


Dim docActive As Document
Set docActive = ActiveDocument

With docActive.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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号