如何在vba中为形状添加点或节点？

Question

我正在尝试将点或节点添加到形状中，因此我可以更多

而不是4点。

这是我的代码添加形状

Set shap2 = w.Shapes.AddShape(1, 330, 55, 100, 40)
shap2.Nodes.Insert , 6, msoEditingAuto, 1, 1 

我在尝试添加节点时遇到错误......有什么想法吗？