【VBAで画像を貼り付ける】ダイアログから画像を選択して貼り付けるコードを紹介

画像貼付作業での「大きさ、配置」調整を自動化したい！

こんな要望にお応えします。

この記事では、

ダイアログから画像を選択して指定するセルに貼り付けるVBAの作り方

をご紹介しています。

VBAの処理結果はこんな感じ

画像貼付作業の手間を省きたい！

という方は是非参考にしてみてください。

1. ダイアログから画像を選択して指定するセルに貼り付けるVBA
- 1.1. 使い方
- 1.2. 設定されているコード
2. 画像を貼り付けるVBAのコード解説
- 2.1. ダイアログを開くVBA
- 2.2. 画像を貼り付けるVBA
3. 画像貼付けVBAを使って資料を作成してみた
4. 業務内容に合わせたVBAを導入する方法
- 4.1. VBAの開発を依頼する
- 4.2. 自分でVBAのコードを編集する

ダイアログから画像を選択して指定するセルに貼り付けるVBA

ダイアログから画像を選択して指定するセルに貼り付けるVBAを導入すれば、

画像の大きさ、表示位置を自動調整が可能になる

のでエクセル作業の効率を大幅にアップさせることが可能です。

ガッツポーズの人

選択した画像が思い通り貼り付いてくれるので作業効率アップ。

使い方

1.画像を貼り付けたいセルをダブルクリック

ダイアログが起動します。

2.ダイアログから画像を選択

たったこれだけ。

ダブルクリックしたセル内に収まるように画像が表示されます。

設定されているコード

「ダイアログから画像を選択して指定するセルに貼り付けるVBA」に設定されているコードがこちら

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim myF As Variant
Cancel = True
'''''''''''''''写真を貼り付けたいセルをダブルクリックするとダイアログが表示される''''（写真を貼り付けるセルの行数が18以上となることを想定)
    If ActiveCell.MergeArea.Rows.Count > 17 Then
    '''''''''''''''写真貼付ける
    myF = Application.GetOpenFilename _
    ("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False)
    If myF <> False Then
    With ActiveSheet.Shapes.AddPicture(Filename:=myF, LinkToFile:=False, SaveWithDocument:=True, Left:=Target.Left, Top:=Target.Top, Width:=-1, Height:=-1)
'''''''''''''''写真の大きさを調整
.LockAspectRatio = True '縦横比率の維持（念のため）
.Width = Target.Width
        If .Height > Target.Height Then .Height = Target.Height
        '''''''''''''''写真の配置を調整
        .Top = Target.Top + Target.Height / 2 - .Height / 2
        .Left = Target.Left + Target.Width / 2 - .Width / 2
        '''''''''''''''写真の名前を取得
        ds1 = InStrRev(myF, "\")
        File1 = Mid(myF, ds1 + 1)
        ds2 = InStrRev(File1, ".")
        '''''''''''''''写真の名前を表示
        Cells(Target.Row, Target.Column + 23) = Mid(File1, 1, ds2 - 1)
        Cells(Target.Row, Target.Column + 23).Select
End With
End If
Else
SendKeys "{F2}", True
End If
End Sub

上記コードはModuleではなくSheetに入力してします。

コードの設定ができる！という方はコピペして使ってみてください。

画像を貼り付けるVBAのコード解説

「ダイアログから画像を選択して指定するセルに貼り付けるVBA」に設定されているコードを解説します。

ダイアログを開くVBA

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim myF As Variant
Cancel = True
'''''''''''''''写真を貼り付けたいセルをダブルクリックするとダイアログが表示される''''（写真を貼り付けるセルの行数が18以上となることを想定)
    If ActiveCell.MergeArea.Rows.Count > 17 Then
    '''''''''''''''写真貼付ける
    myF = Application.GetOpenFilename("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False)

1行目は、「ダブルクリックすると〇〇する」コード

5行目と7行目は、「17行以上結合されたセルをダブルクリックするとダイアログが表示される」コード

画像を貼り付けるVBA

 With ActiveSheet.Shapes.AddPicture(Filename:=myF, LinkToFile:=False, SaveWithDocument:=True, Left:=Target.Left, Top:=Target.Top, Width:=-1, Height:=-1)
'''''''''''''''写真の大きさを調整
.LockAspectRatio = True '縦横比率の維持
.Width = Target.Width
        If .Height > Target.Height Then .Height = Target.Height
        '''''''''''''''写真の配置を調整
        .Top = Target.Top + Target.Height / 2 - .Height / 2
        .Left = Target.Left + Target.Width / 2 - .Width / 2

1行目は、「AddPictureでダイアログで選択した画像をアクティブ中のセルに貼り付ける」コード

3行目は、「貼り付けた画像の縦横比を固定する」コード

4行目～8行目は、「貼り付けた画像の大きさ、表示位置を調整する」コード

ガッツポーズの人

処理毎に分けて考えるとわかりやすいのではないでしょうか。

画像貼付けVBAを使って資料を作成してみた

ダイアログから画像を選択して指定するセルに貼り付けるVBAを使って作成した資料がこちら

好きな場所に適切なサイズの画像を貼り付けできる
17行以上結合されたセルを作るだけで画像貼付けVBAが使える
貼り付けた画像の調整が必要ないので作業効率が良い

20枚程度の画像を貼り付ける作業にかかった時間は約4分。

画像を１つ１つ選びながら貼り付けできる！ことがこのVBAの最大の特徴です。

上を目指す人

VBAを使わなければこんなに早く処理する事は絶対できません。

設定されているVBAには、

17行以上のセルが結合されているセルをダブルクリックした時ダイアログを表示する

というコードが設定されています。

なので、

「様式が足りなくなった」「様式が変更になった」場合でも、

17行以上接合されたセルを作れば画像貼付けVBAを起動させるとができます。

こんな感じ

様式をアレンジしても、

17行以上接合されたセルをダブルクリックすればダイアログが起動する

という仕組みさえ守ればそのまま使えます。

ガッツポーズの人

めちゃくちゃ便利

「ダイアログから画像を選択して指定するセルに貼り付けるVBA」は下記のサイトでダウンロードすることができます。

気になる方は是非ダウンロードして画像貼付け作業の効率をアップさせてみてください。

ダイアログから画像を選択して指定するセルに貼り付けるVBAのダウンロードはこちら

仕事では20枚ほどの画像データ編集作業に2時間から3時間程度費やしていましたが、

VBAを導入してからは30分以内で完成させることができるようになりました。

ひらめく人

画像を貼り付けて編集するエクセル業務はVBAの設定が絶対におすすめ

業務内容に合わせたVBAを導入する方法

今回紹介した、

「ダイアログから画像を選択して指定するセルに画像を貼り付けるVBA」を業務内容に合わせてアレンジしたい！！

このように感じてくれた方がいらっしゃるのではないでしょうか。

業務内容に合わせたVBAを導入することができれば、

２時間～３時間もかかっているエクセル業務を１時間以内に処理する

ことだって可能です。

なんとしてもエクセル業務の効率をアップさせたい！と考えている方のために

業務内容に合わせてVBAをアレンジする２つの方法

を具体的にご紹介します。

それは、

「VBAのコード開発を第三者に依頼する」または「自分でVBAのコードを編集する」

という方法です。

VBAの開発を依頼する

「VBAのコード開発を第三者に依頼する」は、

プログラミング開発を請け負っている会社、または個人に依頼することで

業務内容に合わせたVBAの導入ができます。

通常の業務に専念しつつエクセル業務の効率をアップできるのでめちゃくちゃおすすめの手段なのですが、

依頼先によっては費用が高い！担当者によって完成度の差が激しい

などのデメリットがあります。

勤めていた会社でよく利用していたのですが、

「これだけのVBAでこんなに請求されるの！？？」

と驚かされたことも。。。

疑問がある人

どこに依頼するかはとても重要。

VBAのコード開発を依頼予定の方は、

依頼先の候補として「マメBlogのエクセルVBA開発サービス」

を検討してみてください。

マメBlogで開発した「画像を貼り付けるVBA」の事例がこちら

フォルダ内全ての画像をまとめて貼り付けるVBA

「画像貼付けVBA」と「プルダウンリストVBA」を組み合わせたVBA

どんなエクセル作業をしていて、どんなVBAを設定したいのか。

を聞き取りをして開発したものです。

これらはほんの一例で、年間50件ほどのVBA開発を担当させていただいております。

マメBlogが提供するVBA開発サービスの特徴がこちら

現在行っている業務内容に合わせてVBAを設定
依頼を受けてから２週間以内に納入
簡単な改修は追加費用なしで実施

「実際に使っている様式」「職場での運用方法」に合わせてVBAを設定するので、

めちゃくちゃ使いやすいと大好評。

効率をアップさせたい！でもVBAを1から勉強する時間なんてない！！

こんな方は、是非「マメBlogVBA開発サービス」の利用を検討してみてください。

「マメBlogのVBA開発サービス」の詳細はこちら

自分でVBAのコードを編集する

「自分でVBAのコードを編集する」にはVBAの勉強が必要です。

プログラミングの勉強って難しそぅ！

と思われるかもしれませんがそんなことはありません。

VBAは

「ネットや参考書で情報をゲットしやすい」「エクセルを使えればすぐにでもVBAを操作できる」

という理由から初心者が挑戦しやすいプログラミングだと言われています。

例えば、

【VBA 書き方】

【VBA 画像貼付サンプルコード】

このようにネット検索すればいろんな情報を手に入れることができて、開発しようとしているVBAの難易度をすぐ調べることができます。

簡単なVBAであれば、

ネットや参考書で紹介されいるコードを組み合わせて業務内容に合わせたVBAに仕上げる

ことが可能です。

ガッツポーズの人

VBA学習を始めたての頃、この方法でいろんなVBAを作っていました。

実現させたいVBAの難易度を確認してから、

「自分でVBA開発を進めるのか」それとも「第三者にVBA開発を依頼するのか」

を検討すると効率よくVBAの導入が可能です。

Posted by t.a.k.ubonse926@gmail.com