环形图

环状图的功能与饼图的类似，可以表示部分与整体之间的占比关系。

Document Image Document Image
\[\]

图4-39 环状图 图4-40 带分离扇区的环状图

下面用Excel文件data.xlsx中的数据绘制环状图。完整代码见：Samples->ch06 分类型图表->70 环状图->py.py。

code.vba 
Sub CreateChart()
  Dim cht As Chart
  ActiveSheet.Range("A2:B11").Select  '数据
  Set cht = ActiveSheet.Shapes.AddChart2(-1, _
          xlDoughnut, 200, 20, 350, 250, True).Chart
End Sub

运行代码生成图4-39。

考虑有分离扇区的情况。

下面用Excel文件data.xlsx中的数据绘制带分离扇区的环状图。完整代码见：Samples->ch06 分类型图表->71 环状图2->py.py。

code.vba 
Sub CreateChart2()
  Dim cht As Chart
  ActiveSheet.Range("A2:B11").Select  '数据
  Set cht = ActiveSheet.Shapes.AddChart2(-1, _
          xlDoughnut, 200, 20, 350, 250, True).Chart
  cht.SeriesCollection(1).Points(2).Explosion = 20
End Sub

运行代码生成图4-40。