Excel) (FreeformBuilder.AddNodes 方法

在目前圖形中加入一個點,然後從目前的節點繪製線條到最後一個新增的節點。

語法

運算式AddNodes (SegmentTypeEditingTypeX1Y1X2Y2X3Y3)

表達 代表 FreeformBuilder 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
SegmentType 必要 MsoSegmentType 要加入的線段類型。
EditingType 必要 MsoEditingType 頂點的編輯屬性。
X1 必要 Single 如果新線段的 EditingTypemsoEditingAuto,這個引數會指定水準距離 (從檔左上角到新線段終點)

如果新節點的 EditingTypemsoEditingCorner,這個引數會指定從檔左上角到新線段第一個控制點) 以點為單位的水準距離 (。
Y1 必要 Single 如果新線段的 EditingTypemsoEditingAuto,此引數會以點為單位,指定文件的左上角與新線段終點之間的水平距離。

如果新節點的 EditingTypemsoEditingCorner,這個引數會指定從檔左上角到新線段第一個控制點) 以點為單位的水準距離 (。
X2 選用 Variant 如果新線段的 EditingTypemsoEditingCorner,這個引數會指定水準距離 (從檔左上角到新線段第二個控制點) 點。

如果新區段的 EditingTypemsoEditingAuto,請勿為此引數指定值。
Y2 選用 Variant 如果新線段的 EditingTypemsoEditingCorner,這個引數會指定水準距離 (從檔左上角到新線段第二個控制點) 點。

如果新區段的 EditingTypemsoEditingAuto,請勿為此引數指定值。
X3 選用 Variant 如果新線段的 EditingTypemsoEditingCorner,這個引數會指定水準距離 (從檔左上角到新線段第二個控制點) 點。

如果新區段的 EditingTypemsoEditingAuto,請勿為此引數指定值。
Y3 選用 Variant 如果新線段的 EditingTypemsoEditingCorner,這個引數會指定水準距離 (從檔左上角到新線段第二個控制點) 點。

如果新線段的 EditingTypemsoEditingAuto,則請勿指定此引數的值。

註解

MsoEditingType 不能是 msoEditingSmoothmsoEditingSymmetric。 如果 SegmentTypemsoSegmentLine,則 EditingType 必須是 msoEditingAuto

範例

本範例會在 myDocument 中新增一個帶有四個線段的手繪多邊形。

Set myDocument = Worksheets(1) 
With myDocument.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 支援與意見反應