excel - excel vba中堆积条形图的第二种选择

Question

我正在尝试在 vba 中获取 excel 堆积条形图，但是当我尝试时我的结果会有所不同？

我究竟做错了什么？

我的预期结果和我得到的结果:
Chart

VBA代码供您引用:

Sub createchart()
 Dim ws As Worksheet
 Set ws = ThisWorkbook.Sheets("High")

 Dim chrt As Object
  Set chrt = ws.Shapes.AddChart2(297, xlBarStacked)

  With chrt.Chart
   .SetSourceData Source:=ws.Range("E4:E7")
   .HasTitle = True
   .ChartTitle.Text = ws.Range("E3").Value
 End With


 End Sub

Answer 1

您需要按行绘制以获得所需的输出。您可以尝试以下修改。

Sub createchart()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("High")

    Dim chrt As Object
    Set chrt = ws.Shapes.AddChart

    With chrt.Chart
       .SetSourceData Source:=ws.Range("E4:E7"), PlotBy:=xlRows
       .HasTitle = True
       .ChartTitle.Text = ws.Range("E3").Value
       .ChartType = xlBarStacked
    End With


End Sub