PowerPoint) (Shapes.AddCurve 方法

建立貝塞爾曲線。 會傳回代表新曲線的 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 支援與意見反應。