谁用过ActiveDocument.Shapes.AddCurve,进来帮帮我
我在word的宏里写了一段代码,执行后画了一条拐弯的线,可我不知道代码中的7个点是怎么控制线的,请大家帮忙,代码如下:
Dim pts(1 To 7, 1 To 2) As Single
pts(1, 1) = 0
pts(1, 2) = 0
pts(2, 1) = 0
pts(2, 2) = 0
pts(3, 1) = 100
pts(3, 2) = 100
pts(4, 1) = 0
pts(4, 2) = 0
pts(5, 1) = 90
pts(5, 2) = 120
pts(6, 1) = 60
pts(6, 2) = 30
pts(7, 1) = 150
pts(7, 2) = 90
ActiveDocument.Shapes.AddCurve pts
End Sub