共用方式為

Word) (Shapes.AddCurve 方法

  • 發行項

會傳回 Shape 物件，代表繪圖畫布中的貝茲曲線。

語法

運算式。AddCurve (SafeArrayOfPoints)

需要 expression。 代表 Shapes 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
SafeArrayOfPoints 必要 Variant 用於指定區線上之頂點和控制點的座標組陣列。 所指定的第一個點應是起始頂點，其次兩個點應是第一個貝塞爾段落的控制點。 然後，對於曲線的每個貝塞爾段落，指定一個頂點和兩個控制點。 所指定的最後一個點應是曲線的終止頂點。 請注意，所指定的點的數目必須是 3n + 1 個，其中 n 為曲線中貝塞爾段落的數目。

傳回值

Shape

範例

本範例會將貝茲曲線新增至繪圖畫布中。

Sub CanvasBezier() 
 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 Dim sngArray(1 To 7, 1 To 2) As Single 
 
 Set docNew = Documents.Add 
 
 'Create a new drawing canvas 
 Set shpCanvas = docNew.Shapes.AddCanvas(Left:=100, _ 
 Top:=100, Width:=300, Height:=50) 
 
 sngArray(1, 1) = 0 
 sngArray(1, 2) = 0 
 sngArray(2, 1) = 50 
 sngArray(2, 2) = 50 
 sngArray(3, 1) = 100 
 sngArray(3, 2) = 0 
 sngArray(4, 1) = 150 
 sngArray(4, 2) = 50 
 sngArray(5, 1) = 200 
 sngArray(5, 2) = 0 
 sngArray(6, 1) = 250 
 sngArray(6, 2) = 50 
 sngArray(7, 1) = 300 
 sngArray(7, 2) = 0 
 
 'Add Bezier curve to drawing canvas 
 shpCanvas.CanvasItems.AddCurve _ 
 SafeArrayOfPoints:=sngArray 
 
End Sub

另請參閱

Shapes 集合物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。