Shapes.AddCurve 方法 (Publisher)

會將代表貝茲曲線的新 Shape 物件新增至指定 的 Shapes 集合。

語法

運算式。AddCurve (SafeArrayOfPoints)

expression 代表 Shapes 物件的變數。

參數

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

傳回值

圖形

註解

對於 SafeArrayOfPoints中的陣列元素，數值會以 點為單位進行評估;字串可以是 Microsoft Publisher (支援的任何單位，例如「2.5 in」) 。

範例

下列範例會新增兩個貝賽爾弧線段落到使用中出版物的首頁。

Dim shpCurve As Shape 
Dim arrPoints(1 To 4, 1 To 2) As Single 
 
arrPoints(1, 1) = 0 
arrPoints(1, 2) = 0 
arrPoints(2, 1) = 72 
arrPoints(2, 2) = 72 
arrPoints(3, 1) = 144 
arrPoints(3, 2) = 36 
arrPoints(4, 1) = 216 
arrPoints(4, 2) = 108 
 
Set shpCurve = ActiveDocument.Pages(1).Shapes.AddCurve _ 
 (SafeArrayOfPoints:=arrPoints)

支援和意見反應

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