|
つんさん、りんさん
こんばんは。
このたびはお教え頂きありがとうございました。
お教えいただいたことをもとに色々試しているのですが、なかなかうまくいきません。
>グラフを別シートに描く
> With lWsE
> '一つあけて下
> With .Range(.Cells(Rmax + 2, 1), .Cells(Rmax + 21, 10)) '大きさは適当
> Set co = .ChartObjects.Add(.Left, .Top, .Width, .Height)
> End With
> End With
>
>これで、どのシートにグラフができたかで確認してみるのもいいかも。
私の書き方が悪かったですが、lWsEをActivateにするのは問題ありませんが、
lWsEをActivateにしてしまうと
With .Range(.Cells(Rmax + 2, 1), .Cells(Rmax + 21, 10)) ←この行
で問題が出てしまいます。
可能性によっては、他の部分でエラーが起きている可能性もありますので、
エラーを再現したファイルを作成し、
あつかましくもりんさんにお送りさせていただきました。
お忙しい中、お時間をおとり頂き申し訳ありませんが、
これが一番わかりやすい方法かと考えましたので、お時間ありますときにでも
エラーの原因をお教えいただけましたら幸いです。
|
|