全部显示

AddCurve 方法

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

expression  必选。该表达式返回“应用于”列表中的对象之一。

SafeArrayOfPoints  必选。Variant 类型。表示一个坐标数值对数组，该数组指定曲线的顶点和控制点。指定的第一个点为起始顶点，随后的两个点为第一个贝塞尔段的控制点。然后，曲线每增加一个段，要为其指定一个顶点和两个控制点。最后指定的点为该曲线的结束顶点。请注意，必须指定 3n + 1 个点，其中 n 为曲线的段数。

示例

以下示例在 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