會在手繪多邊形圖案中插入節點。
語法
表達。插入 (索引、SegmentType、EditingType、X1、Y1、X2、Y2、X3、Y3)
詞 代表 ShapeNodes 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Index | 必要 | 整數 | 長 。 要在其後插入新節點的圖案節點編號。 |
| SegmentType | 必要 | MsoSegmentType | 線段類型。 |
| EditingType | 必要 | MsoEditingType | 編輯類型。 |
| 1個 | 必要 | Single | 如果新線段的 EditingType 是 msoEditingAuto，則此引數會指定從文件左上角到新線段終點的水平距離 （以 點為單位）。 如果新節點的 EditingType 是 msoEditingCorner，則此引數會指定從文件左上角到新區段的第一個控制點的水平距離 （以點為單位）。 |
| 一年級 | 必要 | Single | 如果新線段的 EditingType 為 msoEditingAuto，則這個引數會指定從文件左上角到新線段端點之間的垂直距離 (以點為單位)。 如果新節點的 EditingType 是 msoEditingCorner，則此引數會指定從文件左上角到新線段的第一個控制點的垂直距離 （以點為單位）。 |
| 2 個 | 必要 | Single | 如果新區段的 EditingType 是 msoEditingCorner，則此引數會指定從文件左上角到新區段的第二個控制點的水平距離 （以點為單位）。 如果新區段的 EditingType 是 msoEditingAuto，請勿指定此引數的值。 |
| 二年級 | 必要 | Single | 如果新區段的 EditingType 是 msoEditingCorner，則此引數會指定從文件左上角到新區段的第二個控制點的垂直距離 （以點為單位）。 如果新區段的 EditingType 是 msoEditingAuto，請勿指定此引數的值。 |
| X3 | 必要 | Single | 如果新線段的 EditingType 為 msoEditingCorner，則這個引數會指定從文件左上角到新線段端點之間的水平距離 (以點為單位)。 如果新區段的 EditingType 是 msoEditingAuto，請勿指定此引數的值。 |
| 三年級 | 必要 | Single | 如果新線段的 EditingType 為 msoEditingCorner，則這個引數會指定從文件左上角到新線段端點之間的垂直距離 (以點為單位)。 如果新線段的 EditingType 為 msoEditingAuto，則請勿指定此引數的值。 |
範例
本範例選取使用中文件內的第三個圖案，並檢查該圖案是否為 Freeform 物件，如果是，則插入一個節點。 本範例假設使用中工作表內有三個圖案。
Sub InsertShapeNode()
ActiveSheet.Shapes(3).Select
With Selection.ShapeRange
If .Type = msoFreeform Then
.Nodes.Insert _
Index:=3, SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingSymmetric, X1:=35, Y1:=100
.Fill.ForeColor.RGB = RGB(0, 0, 200)
.Fill.Visible = msoTrue
Else
MsgBox "This shape is not a Freeform object."
End If
End With
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。