在Excel中绘制环状形状

Question

这个形状是否可以用.AddShape绘制？ 哪个是他的MsoAutoShapeType，我该如何设置内部圆的大小？

Answer 1

要调整内部圈子，您需要先生成甜甜圈

.AddShape(MsoAutoShapeType, Left, Top, Width, Height)

其中Width和Height定义外圈。然后用

调整形状的内圆

.DrawingObject.ShapeRange.Adjustments.Item(1) = 0.45

所以我们有类似的东西

Dim myShape As Shape
Set myShape = Worksheets("MySheetName").Shapes.AddShape(msoShapeDonut, 10, 10, 50, 50)
myShape.DrawingObject.ShapeRange.Adjustments.Item(1) = 0.45

它看起来像是：

有关参考资料，请参阅：

• Shapes.AddShape Method
• MsoAutoShapeType Enumeration