EXCEL VBA 別ファイルのシートから図形を含めてコピーしたい

今やっているのは、VBAで別のエクセルファイルからシートの内容を範囲を指定してコピーして貼り付けるという単純なこと。

だが、落とし穴がたくさんあった。

普通にコピーメソッドを使って貼り付けをするとコピーの処理落ちや図形がコピーできなかったり、図形位置がずれる等の不具合が発生した。

図形の貼り付け時の位置ずれは、いまだ苦戦中のため、VBAに詳しい方ヘルプです。

 

◆発生した不具合や落とし穴

・コピーメソッド、ペーストメソッドが処理負荷により失敗する。WaitやSleepで待つ必要がある。

・Shapesオブジェクトをループで取得して貼り付けを実行すると、コメントはコピーメソッドに対応していないためエラーが発生する。

・Shapesオブジェクトがグループ化されていると貼り付け位置がずれる。(未解決)

・ShapesオブジェクトのTop、LeftはSingle型だが、Rangeの位置はDouble型