複数のピボットチャートSetSourceDataエラー

Question

私は複数のピボットグラフを持っている

私は次のコードを使用してVBAでこれらのチャートを生成しようエクセル2002で、別のワークシート上の自分のピボットテーブルを持つ各：

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

....

ここで、tblNameは数行前に作成したばかりの名前付き範囲ですが、テーブルが1つしかなくチャートが生成されてもコードは正常に実行されますが、実行時エラー1004が表示されます。ピボットグラフレポートは変更できません... "ピボットテーブルとチャートが次々に設定されます。

[挿入] - > [名前] - > [定義]に進むと、作成された名前付き範囲のリストが正しいようです。

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

Answer 1

コードのこの作品は、あなただけの1枚あたりのピボットテーブルやピボットテーブルは、セルA1に開始していることを前提としてい特定のワークシート名もそのエラーを引き起こすようです。

Answer 2

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

データソースが変更される場合は、ピボットグラフは使用しません。

実行時にグラフを作成します（例のように）。ピボットテーブルの結果のチャートを作成します。また、に「Worksheets.Count」を変更...

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

を：