通过VBA实现的累积条形图

Sub CreateCumulativeBarChart()
    Dim dataRange As Range
    Dim chartRange As Range
    Dim chartObject As ChartObject
    
    ' 设置数据范围
    Set dataRange = Worksheets("Sheet1").Range("A1:B10")
    
    ' 创建图表
    Set chartObject = Worksheets("Sheet1").ChartObjects.Add(Left:=100, Width:=400, Top:=100, Height:=300)
    
    ' 设置图表数据范围
    Set chartRange = dataRange.Resize(, 2)
    chartObject.Chart.SetSourceData Source:=chartRange
    
    ' 设置图表类型为累积条形图
    chartObject.Chart.ChartType = xlBarStacked
    
    ' 设置图表标题
    chartObject.Chart.HasTitle = True
    chartObject.Chart.ChartTitle.Text = "累积条形图"
    
    ' 设置坐标轴标题
    chartObject.Chart.Axes(xlCategory).HasTitle = True
    chartObject.Chart.Axes(xlCategory).AxisTitle.Text = "类别"
    chartObject.Chart.Axes(xlValue).HasTitle = True
    chartObject.Chart.Axes(xlValue).AxisTitle.Text = "累积值"
    
    ' 设置图表样式
    chartObject.Chart.ApplyLayout (1)
End Sub