|
今書いているコードについて助言頂きたく、投稿しました。
シートの中にどこまで文字があるかを .End(xlToRight).Column などで調べて
列はs、行はtという関数を取得してそれぞれのグラフを書こうとしています。
しかし試行錯誤したのですがどうしても下記コードの5行目の部分がうまくいきません。
Unionの上位オブジェクトがおかしいのではないかと思っていますが、直しても書き方が悪いのかうまくいかずお手上げです。
どうかこの問題について助言をお願いします。
----------
Dim c As Long
For c = 2 To s
ActiveSheet.ChartObjects.Add(100, 50 + (c - 2) * 220, 400, 200).Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Union(Range(Cells(2, 1), Cells(t, 1)), Range(Cells(2, c), Cells(t, c)))
Next c
----------
|
|