Shapes.AddCurve 方法

创建一条贝塞尔曲线。返回一个代表新曲线的 Shape 对象。

语法

表达式.AddCurve(SafeArrayOfPoints)

表达式 一个代表 Shapes 对象的变量。

参数

名称	必选/可选	数据类型	描述
SafeArrayOfPoints	必选	Variant	由指定曲线的顶点和控制点的坐标对（坐标对：一对值，表示两维数组中存储的点的 x 和 y 坐标，该数组中包含许多点的坐标。）组成的数组。首先指定起点，然后指定两个第一段贝塞尔曲线的控制点。该曲线每增加一条线段，就要为其指定一个顶点和两个控制点。最后指定该曲线的终点。请注意，必须指定的点数始终为 3n + 1，其中 n 为曲线的线段个数。

返回值
Shape

示例

以下示例在 myDocument 中添加一个两段的贝塞尔曲线。

示例代码

示例代码
`Dim pts(1 To 7, 1 To 2) As Single pts(1, 1) = 0 pts(1, 2) = 0 pts(2, 1) = 72 pts(2, 2) = 72 pts(3, 1) = 100 pts(3, 2) = 40 pts(4, 1) = 20 pts(4, 2) = 50 pts(5, 1) = 90 pts(5, 2) = 120 pts(6, 1) = 60 pts(6, 2) = 30 pts(7, 1) = 150 pts(7, 2) = 90 Set myDocument = ActivePresentation.Slides(1) myDocument.Shapes.AddCurve SafeArrayOfPoints:=pts`

Dim pts(1 To 7, 1 To 2) As Single
pts(1, 1) = 0
pts(1, 2) = 0
pts(2, 1) = 72
pts(2, 2) = 72
pts(3, 1) = 100
pts(3, 2) = 40
pts(4, 1) = 20
pts(4, 2) = 50
pts(5, 1) = 90
pts(5, 2) = 120
pts(6, 1) = 60
pts(6, 2) = 30
pts(7, 1) = 150
pts(7, 2) = 90
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddCurve SafeArrayOfPoints:=pts

请参阅