Excel VBA生成堆叠条形图结果不符，请求排查问题

嘿，我来帮你排查这个VBA生成堆叠条形图的问题～

从你贴的代码来看，最关键的问题出在数据源的选择上：

• 你只指定了ws.Range("E4:E7")这一列数据作为图表源数据，但堆叠条形图（xlBarStacked）需要多组数据系列才能实现堆叠效果，单一组数据只能生成普通的条形图，自然达不到你预期的堆叠样式。
• 另外，虽然你用AddChart2指定了xlBarStacked类型，但当数据源只有一列时，Excel会自动 fallback 为普通条形图，这也是实际结果不符的原因之一。

假设你的数据是多列结构（比如E到G列，包含表头），调整后的代码如下：

Sub createchart()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("High")
    Dim chrt As Object
    ' 创建堆叠条形图，明确指定样式和图表类型
    Set chrt = ws.Shapes.AddChart2(Style:=297, XlChartType:=xlBarStacked)
    
    With chrt.Chart
        ' 选择包含表头+所有堆叠数据列的范围，示例为E3:G7（E3是标题，E4:E7、F4:F7等是不同堆叠系列）
        .SetSourceData Source:=ws.Range("E3:G7")
        .HasTitle = True
        .ChartTitle.Text = ws.Range("E3").Value
        ' 可选：调整图表的位置和大小，适配你的工作表布局
        chrt.Top = ws.Range("A10").Top
        chrt.Left = ws.Range("A10").Left
        chrt.Width = 500
        chrt.Height = 300
    End With
End Sub

• 扩展数据源范围：必须包含所有需要堆叠的多列数据，且建议包含表头（Excel会自动将表头设为系列名称，让图表更清晰）。如果你的数据是行作为系列、列作为类别，可添加PlotBy:=xlRows参数到SetSourceData中。
• 确保图表类型生效：当数据源是多列时，xlBarStacked类型才会正常触发堆叠效果，不会被Excel自动切换。

内容的提问来源于stack exchange，提问作者Arunkumar