投稿時間：2004/11/12(Fri) 10:37
投稿者名：まゆ
Ｅメール：
ＵＲＬ ：
タイトル：Excelのグラフの作成でエラー
みなさん教えてください。
ＶＢでデータを取得しエクセルに渡し、ピボットテーブルで
集計して"グラフ"というシートに値を貼り付け
その"グラフ"シートのデータを元にグラフを作る作業をしてますが、
一度目の実行時はグラフがちゃんとできるのですが、そのまま二度目の実行をすると
下記のエラーが発生します。実行時エラー1004
【ピボットグラフの元のデータは変更できません。表示を変更するには、
ピボットグラフレポートでフィールドやアイテムを変更するか、または、
関連するピボットテーブルレポートを変更します。】
Dim MyChart As ChartObject
Set MyChart = xlSheet.ChartObjects.Add(10, 200, 400, 215)
With MyChart.Chart
.Location xlLocationAsObject, xlSheet.Name
.ChartType = xlColumnStacked
★ .SetSourceData xlSheet.Range(xlSheet.Cells(4, 1), xlSheet.Cells(LastRow - 1,
LastColumn - 1)), xlRows
End With
☆ Set MyChart = Nothing
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
★の行でエラーが発生します。
前のデータが残っているのかと思い☆の行を追加してみましたがだめでした。
どなたかわかる方教えて下さい。
よろしくお願いします。
|