EXCEL VBA 操作图表

1. 获取当前表格的图标个数

ActiveSheet.ChartObjects.Count

2. 弹出消息框

MsgBox ("active charts num = " & x)

Sub ChartCnt()
   x = ActiveSheet.ChartObjects.Count
   MsgBox ("active charts num = " & x)
End Sub

3. 图标显示图例

ActiveChart.SetElement (msoElementLegendBottom)

在图表底部显示图例。先对所有数据画图，最后设置显示图例。

参阅 MsoChartElementType 枚举 (Office) 说明，

MsoChartElementType 枚举 (Office) | Microsoft Docs

4. 多行数据画图

    图表的数据源系列对象 Series， 可以对其名称，数据源，   

Sub testPlot()
   Dim ns As Series  // 定义对象
   'ActiveSheet.ChartObjects.Delete
    Range("B2:iv2").Select
    ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select
       For i = 2 To 15
      Set ns = ActiveChart.SeriesCollection.NewSeries
      ns.Name = Cells(i, "a").Text      
      ns.Values = Range("c" & i, "iv" & i)
   Next i
   
     ActiveChart.SetElement (msoElementLegendBottom)
End Sub