VBA，Shapes.AddCurve SafeArrayOfPoints:=pts 画贝塞尔曲线
1 Shapes.AddCurve SafeArrayOfPoints:=pts 贝塞尔曲线
- https://docs.microsoft.com/zh-cn/office/vba/api/excel.shapes.addcurve
- 由指定曲线的顶点和控制点的坐标对组成的数组。 您指定的第一个点是起始顶点, 接下来的两个点是第一段贝塞尔线段的控制点。 该曲线每增加一条线段，就要为其指定一个顶点和两个控制点。您指定的最后一个点是曲线的结束顶点。 请注意，必须指定的点数始终为 3n + 1，其中 n 为曲线的线段个数。
- SafeArrayOfPoints:=pts
- 贝塞尔曲线
- 起点，2控制点，2控制点 .....终点------好像必须是3n+1,比如4,7,10等等
- 第2维只能是2？
1.1 贝塞尔曲线
https://www.zhihu.com/question/29565629
https://baike.baidu.com/item/%E8%B4%9D%E5%A1%9E%E5%B0%94%E6%9B%B2%E7%BA%BF/1091769?fr=aladdin
它通过控制曲线上的四个点（起始点、终止点以及两个相互分离的中间点）来创造、编辑图形。其中起重要作用的是位于曲线中央的控制线。这条线是虚拟的，中间与贝塞尔曲线交叉，两端是控制端点。移动两端的端点时贝塞尔曲线改变曲线的曲率（弯曲的程度）；移动中间点（也就是移动虚拟的控制线）时，贝塞尔曲线在起始点和终止点锁定的情况下做均匀移动。注意，贝塞尔曲线上的所有控制点、节点均可编辑。这种“智能化”的矢量线条为艺术家提供了一种理想的图形编辑与创造的工具。
Sub t5()
Dim pts(1 To 4, 1 To 2) As Single
pts(1, 1) = 10
pts(1, 2) = 50
pts(2, 1) = 200
pts(2, 2) = 120
pts(3, 1) = 150
pts(3, 2) = 210
pts(4, 1) = 310
pts(4, 2) = 220
Worksheets("sheet4").Shapes.AddCurve SafeArrayOfPoints:=pts
End Sub
1.2 第2个贝塞尔曲线
Sub t6()
Dim pts(1 To 10, 1 To 2) As Single
pts(1, 1) = 10 '
pts(1, 2) = 50 '这种分类是错误的
pts(2, 1) = 200
pts(2, 2) = 120
pts(3, 1) = 150
pts(3, 2) = 210
pts(4, 1) = 310
pts(4, 2) = 220
pts(5, 1) = 110
pts(5, 2) = 280
pts(6, 1) = 190
pts(6, 2) = 220
pts(7, 1) = 150
pts(7, 2) = 210
pts(8, 1) = 310
pts(8, 2) = 220
pts(9, 1) = 110
pts(9, 2) = 280
pts(10, 1) = 190
pts(10, 2) = 210
Worksheets("sheet5").Shapes.AddCurve SafeArrayOfPoints:=pts
End Sub
1.3 根据这个原理，控制4个点，果然可以画出想要的这种波浪曲线
- 起点： 和终点在同一个高度
- 终点：X大，Y=Y起点
- 控制点1：X前进，Y往上
- 控制点2：X继续前进，Y往下
Sub t5()
Dim pts(1 To 4, 1 To 2) As Single
pts(1, 1) = 0 '第1个点的X坐标
pts(1, 2) = 150 '第1个点的Y坐标
pts(2, 1) = 150 '第2个点的X坐标
pts(2, 2) = 0
pts(3, 1) = 200 '第3个点的X坐标
pts(3, 2) = 300
pts(4, 1) = 400
pts(4, 2) = 150
Worksheets("sheet4").Shapes.AddCurve SafeArrayOfPoints:=pts
End Sub