Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2013)
画像の貼付けエラーが出るようになりました
投稿日時: 19/05/28 10:48:56
投稿者: あきこさん

何年も使ってるVBAなのですが、
PCをWIN10に変更してからエラーが出るようになりました。
エラーが出た後、そのまま「継続」ボタンを押すと問題なく進みます。
デバックでもエラーは出ません。
 
 
<<VBA概要>>
・グラフをコピー
・別シートに画像として貼付け
・貼付け作業を20シート分ほど繰り返す
 
・GAZOU はシート名の変数
 
 
エラーがでるのは2か所で、いずれも
   ActiveSheet.Pictures.Paste.Select
で止まります。
 
 
 
 
 
<<エラー1>>
    Sheets("グラフ").Select
    ActiveSheet.ChartObjects("Chart 1").Activate '←できたグラフをコピー
    ActiveChart.ChartArea.Copy
    Sheets(GAZOU).Select
    Range("A2").Select
    ActiveSheet.Pictures.Paste.Select
 
 →エラー内容
「picturesクラスのPasteプロパティを取得できません」
 
 
 
<<エラー2>>
  Sheets("グラフ2").Select
    ActiveSheet.ChartObjects("Chart 1").Activate '←できたグラフをコピー
    ActiveChart.ChartArea.Copy
    Sheets(GAZOU).Select
    Range("A2").Select
    ActiveSheet.Pictures.Paste.Select
 
 →エラー内容
「データを貼り付けできません」
 
 
 
 
記録したマクロを手直ししたコードです。
解決策がわからないまま1年近く経ってしまいました。
どうかアドバイスお願いいたします。

回答
投稿日時: 19/05/28 17:17:39
投稿者: WinArrow
投稿者のウェブサイトに移動

> ActiveSheet.Pictures.Paste.Select
 
こちらは、Excel2007ですが、問題なく実行できます。
バージョンの違いがあるのかな?
 
 
    ActiveSheet.Pictures.Paste.Select
の代わりに
    ActiveSheet.Paste
でも、実行できますが・・・

投稿日時: 19/05/29 13:27:16
投稿者: あきこさん

nArrow さん、動作検証してくださりありがとうございました。
 
ActiveSheet.Paste
 
 
に変えたら、エラーが出なくなりました!!!!!!!
ありがとうございます!感動です。
 
WIN7機 の Excel2013
だと問題なく動くので、本当に今まで謎だったのですが
Win10のちょっとしたバグな気がしてきました。
 
 
大変感謝しております。本当にありがとうございました。