如何使用Excel VBA选择多个区域创建图表？

Question

如何使用Excel VBA选择多个区域创建图表？

4

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

但是我遇到了以下错误：

"对象不支持此属性或方法"，在设置数据源时发生。

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

感谢您的提前预约！

- user3714887

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- SJR · Accepted Answer

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

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