vba提供原始数据并绘制柱状图

好的，下面是一个示例代码，可以通过VBA提供原始数据并绘制柱状图：

Sub DrawChart()
    '定义变量
    Dim cht As Chart
    Dim rng As Range
    Dim ser As Series
    
    '获取原始数据
    Set rng = Range("A1:B5")
    
    '创建图表
    Set cht = ActiveSheet.Shapes.AddChart.Chart
    
    '设置图表类型
    cht.ChartType = xlColumnClustered
    
    '添加数据系列
    Set ser = cht.SeriesCollection.NewSeries
    ser.Name = "Sales"
    ser.Values = rng.Columns(2)
    ser.XValues = rng.Columns(1)
    
    '设置图表标题
    cht.HasTitle = True
    cht.ChartTitle.Text = "Sales Report"
    
    '设置轴标签
    cht.Axes(xlCategory).HasTitle = True
    cht.Axes(xlCategory).AxisTitle.Text = "Month"
    cht.Axes(xlValue).HasTitle = True
    cht.Axes(xlValue).AxisTitle.Text = "Sales"
    
    '调整图表位置和大小
    cht.Parent.Left = 100
    cht.Parent.Top = 100
    cht.Parent.Width = 400
    cht.Parent.Height = 300
End Sub

在这个示例代码中，我们首先获取了原始数据，然后创建了一个Chart对象，设置了图表类型，并添加了一个数据系列。接着设置了图表标题和轴标签，最后调整了图表的位置和大小。在实际应用中，您可以根据自己的需求进行调整和修改。