積み上げ縦棒グラフの範囲を使用する問題

Question

使用するデータとしてrngToSelectのウォーターフォールチャート（xlColumnStacked）を作成しようとしています。ただし、マクロを実行しようとすると、"object _globalのメソッド範囲が失敗しました"エラーが発生します。なぜ誰かがこのエラーを受け取っているのを見ることができますか？

先頭にrngToSelectと宣言してから、ソースデータに追加するときに呼び出します。

Sub Waterfall() 
' 
' Waterfall Macro 
' 

' 
Dim rngData As Range 
Dim intCounter As Integer 
Dim rngToSelect As Range 

Set rngData = ActiveCell.CurrentRegion 

Set rngToSelect = Range(rngData.Cells(1, 1), rngData.Cells(rngData.Rows.Count, 1)) 
For intCounter = 1 To rngData.Columns.Count 
    If rngData.Cells(1, intCounter).Value <> "Values" Then 
     Set rngToSelect = Union(rngToSelect, Range(rngData.Cells(1, intCounter), rngData.Cells(rngData.Rows.Count, intCounter))) 
    End If 
Next intCounter 

rngToSelect.Select 

ActiveSheet.Shapes.AddChart.Select 
    ActiveChart.SetSourceData Source:=Range(rngToSelect) 
    ActiveChart.ChartType = xlColumnStacked 


End Sub 

Answer 1

私は、次の手順を実行して、これを解決：

の代わりに：ActiveChart.SetSourceData Source:=Range(rngToSelect)

を私がやった：

ActiveChart.SetSourceData Source:=rngToSelect