=========WORD里面插入自由曲线=========

[icd]

请问各位高人，word里面插入自选图形--->自由曲线的宏是怎么写的？
谢谢！！

[980]

添加一条贝赛尔曲线。

Sub CanvasBezier()

Dim docNew As Document
Dim shpCanvas As Shape
Dim sngArray(1 To 7, 1 To 2) As Single

Set docNew = Documents.Add

'Create a new drawing canvas
Set shpCanvas = docNew.Shapes.AddCanvas(Left:=100, _
Top:=100, Width:=300, Height:=50)

sngArray(1, 1) = 0
sngArray(1, 2) = 0
sngArray(2, 1) = 50
sngArray(2, 2) = 50
sngArray(3, 1) = 100
sngArray(3, 2) = 0
sngArray(4, 1) = 150
sngArray(4, 2) = 50
sngArray(5, 1) = 200
sngArray(5, 2) = 0
sngArray(6, 1) = 250
sngArray(6, 2) = 50
sngArray(7, 1) = 300
sngArray(7, 2) = 0

'Add Bezier curve to drawing canvas
shpCanvas.CanvasItems.AddCurve _
SafeArrayOfPoints:=sngArray

[980]

上例仅供参考

[icd]

谢谢，AddCurve是创建一条贝塞尔曲线的函数
可是我找了很久也没有找到创建一条自由曲线的函数啊

[ltc]

BuildFreeForm

[Sallys]

哇。厉害。

[Sallys]

问一下，宏在哪里可以学？偶指的是网上的，详细点的。

可否给我介绍一个

[icd]

我已经搞定，确实使用BuildFreeForm,Addnodes，不过比较麻烦