excel-vba - 在Excel中绘制环状

此形状可以通过.AddShape绘制吗？
他的MsoAutoShapeType是哪个？如何设置内部圆的大小？

最佳答案

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

.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