複数のピボットグラフSetSourceDataエラー

Question

私は、Excel 2002で、別のワークシート上の自分のピボットテーブルで、各

複数のピボットグラフを持っています

私は次のコードでVBAでこれらのチャートを生成しようとすると：

Set cht = Charts.Add(After:=Worksheets("Setup"))
With cht
    ' we use named ranges here
    .SetSourceData Source:=range(tblName)
    .Name = chtName

...

tblNameが名前付き範囲は、直前の数行を作成している場合が発生するだけで一つのテーブルとチャートですが、私は、実行時エラー1004を与えた場合、コードは正常に動作しますが、「ピボットグラフレポートの元データを変更することはできません。 ..」私が次々とセットのピボットテーブルやグラフを生成しようとした場合。

を挿入するために行く - >名前 - >定義し、作成した名前付き範囲のリストが正しいように思える。

。

ダイナミックレンジとピボットグラフの元データを設定する正しい方法は何ですか？

Answer 1

このコードの一部は、あなただけの1枚あたりのピボットテーブルやピボットテーブルは、セルA1に開始されていることを前提としてい

Sheets(wsName).Select
Range("A1").Select
Set cht = Charts.Add(after:=Worksheets(Worksheets.Count))
With cht
    .SetSourceData Sheets(wsName).Range("A1")
    .Name = chtName

...

また、特定のワークシート名に「Worksheets.Count」を変更すると、同様にそのエラーをトリガするようです。

Answer 2

私はあなたが一度にあまりにも多くのことをやろうとしているかもしれないと思う。

データソースを変更しようとしている場合は、

、私はピボットグラフを使用することはありません。

（あなたの例のように）実行時にチャートを作成し、ピボットテーブルを使用します。ピボットテーブルの結果のグラフを構築します。