Excel (VBA)

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

 
(Windows 11 Home : Excel 2019)
図としてコピーした場合
投稿日時: 22/04/25 14:41:38
投稿者: eco2019

セル範囲を図形としてコピーし、別なシーに貼り付ける場合、時々、エラーになることがあります。
下記のActiveSheet.PasteSpecial Format:="図 (拡張メタファイル)", Link:=False, _で止まってしまいます。
解決方法を教えていただければ有難いです。
 
   Range("A4:AC100").CopyPicture
    Sheets("Sheet1").Select
    Range("P22").Select
    ActiveSheet.PasteSpecial Format:="図 (拡張メタファイル)", Link:=False, _
        DisplayAsIcon:=True

回答
投稿日時: 22/04/25 15:25:28
投稿者: taitani

ActiveSheet.PasteSpecial Format:="図 (拡張メタファイル)"

ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)"
とか?

投稿日時: 22/04/25 15:38:19
投稿者: eco2019

どうも有難うございます。スムーズに出来ました。