通过

Shapes.AddCurve 方法 (PowerPoint)

  • 项目

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

语法

表达式。AddCurve (SafeArrayOfPoints)

expression：一个表示 Shapes 对象的变量。

参数

名称 必需/可选 数据类型 说明
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

另请参阅

Shapes 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。