大众计算机学习网

专门提供各种电脑教程

VBA之AddCurve 方法

Admin | 2015-2-22 10:43:19 | 被阅次数 | 3480

  AddCurve 方法

  expression.AddCurve(SafeArrayOfPoints)

  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