写真・図のコピー（EXCELVBA）

Question

For Each shp In wb.Shapes
    TP = shp.Top: LF = shp.Left
    shp.Copy
    ActiveSheet.Paste
    Selection.Top = TP: Selection.Left = LF
Next

上記のようなexcelに張り付いている図や写真を別のexcelの同じ位置にコピーするマクロを組みました。
excelによっては、”copyメソッドは失敗しました。'Shape'オブジェクト”　とエラーが表示されますが、
そのまま継続してもマクロは動き続けます。
また、別のexcelだと　”アプリケーション定義またはオブジェクト定義のエラーです”のエラーが表示され、
こちらの場合は、続行できません。

これは、コードの問題なのか、そもそもの抽出先が悪いのかどちらなのでしょうか。

Comments

[hex309]

エラーの場合は、もう少し情報がないとなんとも言えません。
まず、提示されたコードですが、変数wbは何を指していますか？
コードを省略しても良いと思いますが、その場合は必要な部分は残すようにお願いします。
また、エラーがでたそれぞれのブックにあるShapeはどのようなものがありますか？
可能であれば画面キャプチャをアップしてもらえると回答がつきやすくなると思います。

Answer 1

自分のローカル環境の Excel でも同様の事象が再現しました。

＜再現手順＞

1. 「Sheet1」に「四角形」を1000個配置
2. 「Sheet2」をアクティブにして、コピーマクロを実行

　 ⇒ １回目はコピーできるが、２回目を実行しようとしたところ、途中で質問文にあるようなエラーが発生。

これは、コードの問題なのか、そもそもの抽出先が悪いのかどちらなのでしょうか。

なんとなくですが、大量データをコピー＆ペーストしようとすると不安定になるようですね。。

■ エクセルVBAエラー
https://social.msdn.microsoft.com/Forums/windows/ja-JP/e7723823-2cd5-4ce7-a264-4fc4aa6e4085/12456124631247512523vba124561252112540?forum=vbajp

■ Excel2010で、テキストボックスをコピーして貼り付けるvbaマクロがエラーで止まります。
https://answers.microsoft.com/ja-jp/msoffice/forum/all/excel2010%E3%81%A7%E3%83%86%E3%82%AD%E3%82%B9/8dacd969-260d-4c69-b41f-f0e9d1dd1eb5?auth=1

Comments

[pulim]

試行していただきありがとうございます。
エラーは飛ばすしかないようですね

Answer 2

一言でShapeといっても、様々な種類があるので、対象のShapeオブジェクトが、コピーしたいものかどうかをチェックしたほうが確実です。

以下、ご参考まで。
https://www.relief.jp/docs/excel-vba-list-msoshapetype.html