アプリ版：「スタンプのみでお礼する」機能のリリースについて

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

解決済

  • 質問者：y-bankrupt
  • 質問日時：
  • 回答数：1件

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

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

よろしくお願いします

通報する

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

質問の本文を隠す

A 回答 (1件)

No.1ベストアンサー

  • 回答者： DreamyCat
  • 回答日時：

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



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
    • good
    • 0
    • 件
通報する
この回答へのお礼

早速の回答ありがとうございます

大変助かりました

通報する
お礼日時：2011/06/22 12:21

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報