如何使用vba创建具有特定列输入的动态图表？

Sub CreateDynamicChart()
    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:=rng.Left, Top:=rng.Top, Width:=300, Height:=200)
    
    ' 设置图表类型和数据源
    With cht.Chart
        .ChartType = xlColumnClustered ' 替换为所需的图表类型
        .SetSourceData rng
    End With
    
    ' 设置图表标题和轴标签
    With cht.Chart
        .HasTitle = True
        .ChartTitle.Text = "动态图表"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Text = "列标题"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Text = "数值"
    End With
    
    ' 设置图表位置
    cht.Left = ws.Range("D1").Left ' 替换为所需的位置
    
    ' 设置图表大小
    cht.Width = 400 ' 替换为所需的宽度
    cht.Height = 300 ' 替换为所需的高度
End Sub