拡張メタファイルにて貼り付け

解決済

質問者：y-bankrupt
質問日時：2011/06/21 14:08
回答数：1件

VBAのコードを教えて下さい

作業内容は、同じブック内の別シート間で
Sheet(1)のRange("A1:H20")の範囲をコピーして
Sheet(2)のRange("A1")を起点に「拡張メタファイル」にて貼り付けたいのですが
ご存知の方がおりましたら教えて下さい
更に拡張メタファイルのサイズの変更方法も教えて下さい

よろしくお願いします

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： DreamyCat
回答日時：2011/06/22 10:08

「マクロの記録」とほぼ同じものですが、参考にどうぞ。

Sheets(1).Range("A1:H20").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Sheets(2).Select
Sheets(2).Range("A1").Select
ActiveSheet.PasteSpecial Format:="図 (拡張メタファイル)", Link:=False, _
DisplayAsIcon:=False
Selection.Width = 100
Selection.Height = 100

Sheets(1).Select