excel - 创建图表，范围是用户选择的区域 - 对象不支持此属性或方法

Question

所以我需要创建一个图表，并且所述图表中的数据需要是用户当前突出显示的范围，我做得很好并且图表创建但错误“对象不支持此属性或方法”被抛出，有人可以帮我解决这个错误吗，我尝试了多种不同的方法来创建图表，这是唯一接近工作的方法

我创建图表的代码：

Sub CreateChart()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlBarClustered
ActiveChart.SetSourceData Source:=ActiveSheet.range(Selection.Address)
End Sub

Answer 1

您的问题几乎没有可能的答案。首先，如果您运行宏，用户可能会选择一些范围。这意味着您只需要以下代码即可成功：

Sub CreateChart()
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlBarClustered
End Sub

如果您仍然需要设置对选定范围的引用，您可以这样做：

Sub CreateChart_modif()
    Dim rngSel As Range
    Set rngSel = Selection

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.SetSourceData source:=rngSel
End Sub