Question

我有生成简单图表的代码。现在，我想将其更改为：

1）X值必须为A，B，C，D。

2）对于每个X值，我需要一个累积条，累加三个值 - 显示为红色，蓝色，琥珀色。（这意味着，我将有四个柱，每个柱包含红色，蓝色和琥珀色部分accumulated bar graph）

请提出代码？在示例pic中我仍然需要更改X轴标签加绿色应该是琥珀色。

BW彼得邦德汉森

Sub Example()
With Sheets("Sheet1").ChartObjects.Add(0, 0, 300, 300).Chart.SeriesCollection.NewSeries
  .Name = "A B C D type errors"
  .XValues = Array(1, 2, 3, 4)
  .Values = Array(1, 4, 9, 16)
End With

End Sub

Answer 1

我想要的是xl3DColumnStacked类型图，但它只接受这个：

Sub Example()
    With Sheets("Sheet1").ChartObjects.Add(0, 0, 300, 300).Chart.SeriesCollection.NewSeries
      .Name = "A B C D type errors"
      .XValues = Array(1, 2, 3, 4, 5)
      .Values = Array(1, 4, 9, 16, 25)
      .Type = xl3DColumn
    End With
End Sub

通过VBA累积条形图

1 个答案: