2-й вариант гистограммы в Excel VBA

Question

Я пытаюсь получить столбчатую диаграмму Excel в VBA, но когда я пытаюсь, мой результат меняется?

что я делаю не так?

Мой ожидаемый результат и Результат я получаю: Диаграмма

Код 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