【Excel VBA】使用代码生成图表——Chart和Shape的使用方法

说明

因为在日常应用中很少用到图表，最近帮同事写一个自动生成报告的功能，需要自动生成很多图表以便添加到他的报告中，看来需要写一写使用代码生成图表的文章，一方面自己留存，一方面能帮助到需要它的人。

运行效果

代码code

Private Sub CommandButton1_Click()
  '定义数据区
  Dim strRange As String
  strRange = "$B$2:$C$9"
  
  '查找所有本Sheet中的所有图表，然后删除
  Dim itS