在手繪多邊形的指定節點後插入新線段。
語法
表情。插入 (索引、 SegmentType、 EditingType、 X1、 Y1、 X2、 Y2、 X3、 Y3)
詞 一個代表 ShapeNodes 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Index | 必要 | Long | 要在其後插入新節點的節點。 |
| 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 ,如果未指定此引數的值。 |
註解
SegmentType 參數值可以是這些 MsoSegmentType 常數之一。
| msoSegmentCurve |
| msoSegmentLine |
EditingType 參數值可以是這些 MsoEditingType 常數之一。
| msoEditingAuto |
| mso編輯角落 |
範例
本範例向 myDocument 中第三個圖案的第四個節點之後,新增光滑節點和弧形段落。 第三個圖案必須是至少有四個節點的自由圖形繪圖。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
.Insert Index:=4, SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingSmooth, X1:=210, Y1:=100
End With
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。