投稿者 とも 日時 1997 年 8 月 28 日 14:10:32:
はじめまして。 とも です。
折れ線グラフをマクロを使って作成しようとしています。
そこで、グラフウィザードを使って、
ActiveSheet.DrawingObjects("グラフ １").Select
ActiveChart.ChartWizard _
Source:=Sheets("データ").Range("A1:B3"), _
PlotBy:=xlRows, _
CategoryLabels:=1, _
SeriesLabels:=1, _
のように書くと折れ線グラフは正常に描けるのですが、
ActiveSheet.DrawingObjects("グラフ １").Select
ActiveChart.ChartWizard _
Source:=Sheets("データ").Range(Cells(1, 1), Cells(3, 2)), _
PlotBy:=xlRows, _
CategoryLabels:=1, _
SeriesLabels:=1, _
のように書くと、
Source:=Sheets("データ").Range(Cells(1, 1), Cells(3, 2)), _
の部分で”WorkSheetｸﾗｽのRangeﾒｿｯﾄﾞが失敗しました。”という
エラーが発生します。
グラフの要素となるデータが可変であるため、どうしてもCellsを使っ
て記述したいのですが、何か方法はないでしょうか？
記述法に誤りがあるのか、それとも、この記述はサポートしていない
のか、さっぱりわかりません。
他にグラフの描き方をご存知でしたら、アドバイスよろしくお願いし
ます。