Excel) (ShapeNodes 物件
所有 ShapeNode 物件的集合中指定之手繪多邊形。
每個 ShapeNode 物件代表線段的手繪多邊形中還是的控制點弧形線段的手繪多邊形的節點。 您可以建立的手繪多邊形以手動方式或使用 BuildFreeform 和 ConvertToShape 方法。
使用Shape物件的Nodes屬性可傳回ShapeNodes集合。 下列範例會刪除 myDocument 上第三個圖案中的第四個節點。 若要使這個範例能夠正常執行,第三個圖案必須是至少包含四個節點的手繪多邊形。
Set myDocument = Worksheets(1)
myDocument.Shapes(3).Nodes.Delete 4
使用 [ 插入 ] 建立新的節點並將其新增至 ShapeNodes 集合的方法。 下列範例會在 myDocument 上第三個圖案中的第四個節點之後新增帶有弧形線段的平滑節點。 若要使這個範例能夠正常執行,第三個圖案必須是至少包含四個節點的手繪多邊形。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Nodes
.Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100
End With
使用 節點 (索引) ,其中 index 是節點索引編號,可傳回單一 ShapeNode 物件。 如果 myDocument 上第三個圖案中的第一個節點是端點,則下列範例會將它變成平滑線段。 若要使這個範例能夠正常執行,第三個圖案必須是手繪多邊形。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3)
If .Nodes(1).EditingType = msoEditingCorner Then
.Nodes.SetEditingType 1, msoEditingSmooth
End If
End With
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。