excel - 在Excel中绘制环形形状

Question

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

Answer 1

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

.AddShape(MsoAutoShapeType, Left, Top, 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