質問: 10 end with next j
回答: >→ for each ch in activesheet.chartobjects ここで型不一致エラーが出るのも不可解ですが、とりあえず >実行時エラー'1004 objectクラスの activate メソッドが失敗しました >が発生する次第です。 >一体、何故なのでしょう?不可解です。 この原因について書きますと、 >activechart.chartarea.select これが原因ですね。解消するには >crt_name = thisworkbook.activesheet.chartobjects(j).name windows(workbooks(2).name).activate '※ >'変更したいチャートをアクティブにする。 >activesheet.chartobjects(crt_name).activate ※を追加してください。 『単純に考えてchart 3の名前を持つchartobjectが無いから エラーになるのでしょう。』 なんて書きましたが、単純すぎました..orz グラフウィンドウがアクティブになったままなので、エラーになってるかと。 windows(activeworkbook.name).activate でもいいですので、workbookのwindowを明示的にactiveにしてあげる必要があります。 基本、activateやselectを使わないコードにしたほうが良いです。