创建饼图

Question

我一直在尝试使用行值创建饼图。我的问题是我有4个单独的单元格中的数据。当我运行下面的代码它只需要一个单元格值并忽略其他值。它取值为G16，但不取值为H16，I16，J16，K16。

Sub Chart()
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("G16:K16"),PlotBy:= _
    xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.HasTitle = False
End Sub

提前致谢

Answer 1

取出：

,PlotBy:=xlColumns

我最终的测试似乎解决了这个问题。

Answer 2

只需更改plotBy值：

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("G16:K16"),PlotBy:= _
xlRows