Excel) (ShapeNodes.Insert 方法

會在手繪多邊形圖案中插入節點。

語法

運算式。插入 (索引、 SegmentType、 EditingType、 X1、 Y1、 X2、 Y2、 X3、 Y3)

運算式 代表 ShapeNodes 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Index 必要 整數 長 。 要在其後插入新節點的圖案節點編號。
SegmentType 必要 MsoSegmentType 線段類型。
EditingType 必要 MsoEditingType 編輯類型。
X1 必要 Single 如果新區段的 EditingType 為 msoEditingAuto，則此引數會指定從文件左上角到新區段終點的水平距離 （ 以點為單位）。

如果新節點的 EditingType 是 msoEditingCorner，則此引數會指定從文件左上角到新線段的第一個控制點的水平距離，以點為單位。
Y1 必要 Single 如果新線段的 EditingType 為 msoEditingAuto，則這個引數會指定從文件左上角到新線段端點之間的垂直距離 (以點為單位)。

如果新節點的 EditingType 為 msoEditingCorner，則此引數會指定從文件左上角到新區段的第一個控制點的垂直距離，以點為單位。
X2 必要 Single 如果新線段的 EditingType 是 msoEditingCorner，此引數會指定從文件左上角到新線段的第二個控制點的水平距離，以點為單位。

如果新區段的 EditingType 為 msoEditingAuto，請勿為此引數指定值。
Y2 必要 Single 如果新區段的 EditingType 是 msoEditingCorner，此引數會指定從文件左上角到新區段第二個控制點的垂直距離，以點為單位。

如果新區段的 EditingType 為 msoEditingAuto，請勿為此引數指定值。
X3 必要 Single 如果新線段的 EditingType 為 msoEditingCorner，則這個引數會指定從文件左上角到新線段端點之間的水平距離 (以點為單位)。

如果新區段的 EditingType 為 msoEditingAuto，請勿為此引數指定值。
Y3 必要 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 支援與意見反應。

  • Last updated on