返回介绍

AddCurve 方法

发布于 2019-10-04 14:06:53 字数 905 浏览 1287 评论 0 收藏 0

全部显示

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

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

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文