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

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