Shapes.BuildFreeform 方法 (Word)
建立手繪多邊形物件。
語法
expression。 BuildFreeform( _EditingType_ , _X1_ , _Y1_ )
需要 expression。 代表 Shapes 物件的 變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| EditingType | 必要 | MsoEditingType | 第一個節點的編輯屬性 |
| X1 | 必要 | Single | 相對於文件左邊界之手繪多邊形第一個節點的位置 (以點為單位) |
| Y1 | 必要 | Single | 相對於文件上邊界之手繪多邊形第一個節點的位置 (以點為單位) |
傳回值
註解
使用 AddNodes 方法可將區段新增至手繪多邊形。 新增了至少多條線段的手繪多邊形之後，您可以使用 ConvertToShape 方法則可將 FreeformBuilder 物件轉換成具有您已經定義 FreeformBuilder 物件中的幾何描述的 Shape 物件。
範例
此範例會在使用中文件裡新增具有五個頂點的手繪多邊形。
Dim docActive As Document
Set docActive = ActiveDocument
With docActive.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
.AddNodes msoSegmentCurve, msoEditingCorner, _
380, 230, 400, 250, 450, 300
.AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
.AddNodes msoSegmentLine, msoEditingAuto, 480, 400
.AddNodes msoSegmentLine, msoEditingAuto, 360, 200
.ConvertToShape
End With
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。