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

我想在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

---

提前谢谢

你能试试这个吗？激活是个问题，源范围已在代码中定义为一个范围

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

---

我会用级数，但你的解决方案简单得多。