PowerPoint VBA教程:AddCurve方法

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

expression.AddCurve(SafeArrayOfPoints)

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

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

VBA示例

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

上页:PowerPoint VBA教程:AddConnector方法 下页:PowerPoint VBA教程:AddDiagram方法

PowerPoint VBA教程:AddCurve方法

PowerPoint VBA教程:AddDiagram方法 PowerPoint VBA教程:AddEffect方法
PowerPoint VBA教程:AddLabel方法 PowerPoint VBA教程:AddLine方法
PowerPoint VBA教程:AddMediaObject方法 PowerPoint VBA教程:AddNode方法
PowerPoint VBA教程:AddNodes方法 PowerPoint VBA教程:AddOLEObject方法
PowerPoint VBA教程:AddPeriods方法 PowerPoint VBA教程:AddPicture方法
PowerPoint VBA教程:AddPlaceholder方法 PowerPoint VBA教程:AddPolyline方法
PowerPoint VBA教程:AddShape方法 PowerPoint VBA教程:AddTable方法
PowerPoint VBA教程:AddTextbox方法 PowerPoint VBA教程:AddTextEffect方法
PowerPoint VBA教程:AddTitle方法 PowerPoint VBA教程:AddTitleMaster方法
PowerPoint VBA教程:AddToFavorites方法 PowerPoint VBA教程:Align方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号