在特定工作表的特定位置创建图表的VBA Excel

Sub CreateChart()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cht As ChartObject
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置图表数据范围
    Set rng = ws.Range("A1:B10")
    
    ' 创建图表对象
    Set cht = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)
    
    ' 设置图表位置
    cht.Left = ws.Range("D1").Left
    cht.Top = ws.Range("D1").Top
    
    ' 设置图表数据源
    cht.Chart.SetSourceData rng
    
    ' 设置图表类型
    cht.Chart.ChartType = xlColumnClustered
    
    ' 设置图表标题
    cht.Chart.HasTitle = True
    cht.Chart.ChartTitle.Text = "Sales Data"
    
    ' 设置图表轴标签
    cht.Chart.Axes(xlCategory).HasTitle = True
    cht.Chart.Axes(xlCategory).AxisTitle.Text = "Month"
    cht.Chart.Axes(xlValue).HasTitle = True
    cht.Chart.Axes(xlValue).AxisTitle.Text = "Sales"
    
    ' 设置图表图例
    cht.Chart.HasLegend = True
    
    ' 设置其他图表属性
    ' ...
    
End Sub