如何在excel vba中为图表select多个范围？

我想在Excel中使用多个范围的图表。

但我收到以下错误。

Setsourcedata上的“对象不支持此属性或方法”。

file = ListBox3.ListCount var = ListBox2.ListCount Set range1 = Range(Sheets("Vergleich").Cells(27, 1), Sheets("Vergleich").Cells(27 + var, 1)) Set range2 = Range(Sheets("Vergleich").Cells(27, 3), Sheets("Vergleich").Cells(27 + var, 3 + file)) Set range3 = Union(range1, range2) With Sheets("Vergleich").ChartObjects("Diagramm 4").Activate .SetSourceData Source:=ThisWorkbook.Range(range3) .PlotBy = xlRows End With 

提前致谢！！

Answer 1

你能试试吗？ 激活是一个问题，源代码范围已经被定义为代码中的范围。

 file = ListBox3.ListCount Var = ListBox2.ListCount With Sheets("Vergleich") Set range1 = .Range(.Cells(27, 1), .Cells(27 + Var, 1)) Set range2 = .Range(.Cells(27, 3), .Cells(27 + Var, 3 + file)) Set range3 = Union(range1, range2) .ChartObjects("Diagramm 4").Chart.SetSourceData Source:=range3, PlotBy:= xlRows End With