【EXCEL VBA】セル範囲を図として貼り付け「CopyPicture」時短テク

Excelで作った資料の一部を画像として抜粋して使いたい場面ってありませんか？

私自身、報告書やメールの添付用に、決まった表の部分を「図」として貼り付けることがよくありました。

エクセル操作自体は簡単なんですが、忙しいときに限って依頼されると「またか～…」とちょっぴり面倒に感じることも・・・。

そこで、VBAの勉強がてら「この作業、もっと楽にできないかな？」と自動化に挑戦してみました！

書籍を中心にVBAを学んでいる途中なので、もっと良い方法があるかもしれませんが… 自分の備忘録も兼ねて、参考になれば嬉しいです！

Contents

1 【EXCEL VBA】セル範囲を図として貼り付け「CopyPicture」時短テク
- 1.1 コードのポイント
2 【EXCEL VBA】セル範囲を図として貼り付け「CopyPicture」時短テク

【EXCEL VBA】セル範囲を図として貼り付け「CopyPicture」時短テク

＜目的＞

いつものエクセルの決まった表の部分を画像（図）として貼り付けたい。

今回は例として赤枠の部分を画像（図）としたい部分です。

※赤枠の範囲は自身の環境に応じて設定してみてくださいね。

Sub CopyCellPicture()
    Dim rng As Range
    Dim ws As Worksheet

    Set ws = ActiveSheet
    Set rng = ws.Range("A14:H27") '←図として貼り付けたい範囲を設定する

    ' 画像としてコピー
    rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture

    ' 貼り付け
    ws.Paste

    '貼り付けた画像を少し移動（表に被らないように）
    With ws.Shapes(ws.Shapes.Count)  
        .Left = rng.Width + 10        
    End With
End Sub

コードのポイント

Set rng = ws.Range(“A14:H27”)
rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
ws.Paste

ws.Range(“A14:H27”)で、画像（図）としたい部分を設定し、コピー貼り付けしている部分です。

次に画像（図）として貼り付けたい箇所があるなら、セル範囲の設定値を変えて実行するだけでOKなので時短につながりますよ。

With ws.Shapes(ws.Shapes.Count)
.Left = rng.Width + 10
End With

このコードは別になくてもいいんですけど、ない場合は、表の上に画像（図）が張り付いちゃうので被って見栄えが良くないです。（実行してみたらわかります。）

よって、元の表から少しずらした部分に画像（図）を移動しています。

Widthの代わりにHeightで設定すれば下方向に移動するので、自身の環境に合わせて設定してみてくださいね。

【EXCEL VBA】セル範囲を図として貼り付け「CopyPicture」時短テク

このようなわずかなコードですが、幾分時間短縮につながってます。

たった数行のコードでも、作業時間がググッと短縮されるのって…ちょっと感動しません？

今は2～3ヶ所の画像貼り付けで済んでるけど、もし「貼り付け祭り」の依頼が始まったら、For文でループさせて自動化の波に乗る計画も検討中です！

さらに別シートにまとめて出力できたら管理もしやすいだろうし…何より自分のVBAスキルも少しUPしそう！

そんな妄想をしつつ、私のVBAの独学勉強はまだまだ続きます。

これまで使う機会がなかったけど、プログラミングってまるで魔法みたいですね。

「若い頃にもっとやっておけば…」なんて思うけど、今からでも遅くないと思ってます！

もし「ちょっとやってみようかな？」って思ったら、MOSの資格取得の勉強やプログラミングスクールの無料体験なんかも良いキッケケになるのでおすすめですよ！

気軽に試せるものも多いし、未来の自分が「やっててよかった～！」って言ってくれるかもしれませんね！

「Excelスキル、資格で証明しちゃおう！」
MOS対策なら、全国180校展開＆合格率97.3%の「ハロー！パソコン教室」がおすすめ！
オンラインで好きな時間に学べて、初心者でも安心のわかりやすさ。
映像＋テキスト＋練習問題で、合格力が自然と身につく実践型カリキュラム！しかも、2万円前後の低価格でしっかり学べるからコスパも抜群✨
「Excel365スペシャリスト」対策講座なら税込19,010円！

気になる方は、まずは講座内容をチェックしてみてね👇
＼ MOS対策講座はこちら／