Ｅｘｃｅｌ２０１３、実行時エラー１００４データを貼り付けできませんの原因

Ｅｘｃｅｌ２０１３は、手頃な価格で高機能な表計算ソフトです。
またＶＢＡによるプログラムを行うと、特に繰り返し作業では多大な威力を発揮します。

しかし、Ｅｘｃｅｌ２０１３の棒グラフにＶＢＡで画像を貼り付けるプログラムを作成していた所、
「実行時エラー１００４データを貼り付けできません」のエラーが発生しマクロが停止しました。
そこで原因究明と対策実施を検討しました。
パソコンは、下記のソフトを使用していました。

ＯＳ　　　　　　　：　Ｗｉｎｄｏｗｓ８．１（３２ｂｉｔ）
表計算ソフト　　　：　Ｅｘｃｅｌ２０１３（３２ｂｉｔ）
ランチャーソフト　：　ＡｒｔＴｉｐｓ　Ｖｅｒ　７．９０（３２ｂｉｔ）

以下、Ｅｘｃｅｌ２０１３、実行時エラー１００４データを貼り付けできませんの原因と対策を記載して行き
ます。

（項目１）
　・Ｅｘｃｅｌ２０１３の棒グラフに、ＶＢＡで画像を貼り付けるプログラムを作成していた所、
　　「実行時エラー１００４データを貼り付けできません」のエラーが発生しマクロが停止しました。
　　

（項目２）
　・デバッグを押すと、ActiveSheet.Pictures.Paste.Selectの箇所で止まっていました。
　

（項目３）
　・ＶＢＡでコピペ命令を使用しているので、ＡｒｔＴｉｐｓとの相性が考えられました。
　・そこで、ＡｒｔＴｉｐｓを終了してＶＢＡを実行すると、正常に作動しました。
　・本ページでは、ＡｒｔＴｉｐｓを起動したままで、ＶＢＡが正常に作動するプログラムを検討しました。

（項目４）
　・DoEventsを使用すると、ＶＢＡの動作が安定する場合が有ります。
　・今回は、DoEventsを１回では足らず、１００回使いました。
　・DoEvents１００回で動作は安定しましたが、画像の貼り付けが完全では有りませんでした。
　・下記の画像の様に、棒の上の部分が良くないです。
　　　

（項目５）
　・ＶＢＡを種々検討した結果、Selection.Copy　→　Selection.CopyPicture　に変更すると、
　　画像が正常に貼り付ける事が分かりました。
　　

（項目６）
　・ＶＢＡコードは、以下の通りです。
　（対策前）
　　'画像変更
　　For j = 1 To 5

　　　　Range("A" & j * 2).Select
　　　　Selection.Copy

　　　　Range("C" & j * 2).Select
　　　　ActiveSheet.Pictures.Paste.Select

　　　　ActiveSheet.ChartObjects("グラフ 1").Activate
　　　　ActiveChart.SeriesCollection(1).Select
　　　　ActiveChart.SeriesCollection(1).Points(j).Select
　　　　ActiveChart.SeriesCollection(1).Points(j).Paste

　　Next j

　（対策後）
　　'画像変更
　　For j = 1 To 5

　　　　Range("A" & j * 2).Select
　　　　Selection.CopyPicture

　　　　Range("C" & j * 2).Select
　　　　For k = 1 To 100
　　　　　　DoEvents
　　　　Next k
　　　　ActiveSheet.Pictures.Paste.Select

　　　　ActiveSheet.ChartObjects("グラフ 1").Activate
　　　　ActiveChart.SeriesCollection(1).Select
　　　　ActiveChart.SeriesCollection(1).Points(j).Select
　　　　ActiveChart.SeriesCollection(1).Points(j).Paste

　　Next j

（項目７）
　・以上で、Ｅｘｃｅｌ２０１３、実行時エラー１００４データを貼り付けできませんの原因と対策は終了です。
　・ＶＢＡでコピペ命令とＡｒｔＴｉｐｓの相性が原因でした。
　・対策は、DoEvents１００回＋Selection.CopyPictureです。