添加原始大小

Question

因此，如果选择自选图形（例如Ribbon＆gt; INSERT＆gt; Shapes＆gt; Pie）然后在文档中单击一次而不拖动，则将以预定义的大小实例化形状。对于不同形状，此预定义大小是不同的。例如， Pie 形状的原生大小为1 x 1，上下箭头为1.33 x 0.53。

如何以编程方式插入具有此原生大小的形状？插入我找到的形状的唯一方法是Shapes.AddShape(msoShapePie, 0, 0, 100, 100)，这需要指定宽度和高度。提供0或-1不能做我想要的。