如何在excel vba中為圖表選擇多個范圍？

Question

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

你能試試嗎？ Activate是一個問題，源范圍已經定義為代碼中的范圍。

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