在VBA中向单个工作表添加多个图表

在VBA中，我们可以使用以下步骤向单个工作表添加多个图表：

首先，打开Excel并进入开发环境，方法是按下Alt+F11键。
在VBA编辑器中，可以看到左侧的项目资源管理器窗口和中间的代码窗口。
在项目资源管理器窗口中，双击要添加图表的工作簿，然后双击该工作簿下的"Microsoft Excel对象"。
在代码窗口中，选择工作表对象（比如Sheet1），然后输入以下代码：

Sub AddMultipleCharts()
    Dim ws As Worksheet
    Dim chtObj As ChartObject
    Dim rngData As Range
    Dim cht As Chart
    
    Set ws = ThisWorkbook.Sheets("Sheet1") '替换成你的工作表名字
    
    '定义数据范围
    Set rngData = ws.Range("A1:B10") '替换成你的数据范围
    
    '创建图表对象并设置位置
    Set chtObj = ws.ChartObjects.Add(Left:=rngData.Left, Top:=rngData.Top, Width:=300, Height:=300)
    Set cht = chtObj.Chart
    
    '设置图表类型
    cht.ChartType = xlColumnClustered '替换成你想要的图表类型
    
    '设置图表数据源
    cht.SetSourceData rngData
    
    '重复以上步骤以添加更多图表
    '...
    
End Sub