ExcelでVBAを使用してセルに画像を挿入する方法

Excel スプレッドシートに画像を簡単に挿入し、マクロ コードを使用して編集できます。Excel で VBA を使用してセルに画像を挿入する方法は次のとおりです。

Visual Basic for Applications (VBA と略称) は、Microsoft Office プログラムに統合された Visual Basic 6 の形式です。VBA を使用すると、コーディングを通じて Excel などの Office アプリケーションのタスクを自動化できます。場合によっては、VBA を使用して Excel に新しい機能を追加することもできます。

VBA を使用するにはコードを操作する必要がありますが、VBA が文字と数字でいっぱいであるという意味ではありません。Excel の VBA を使用すると、セルまたはセル範囲に画像を挿入できるマクロを作成できます。VBA を使用して Excel のセルに画像を挿入する場合に知っておくべきことは次のとおりです。

ExcelでVBAを使用してセルに画像を挿入する方法

• 1. 開発者ツールをオンにする
• 2. マクロを作成してコードを挿入する
• 3. コードを分割する

VBA を使用して Excel のセルに画像を挿入するマクロを作成するには、Visual Basic の高度な知識は必要ありません。開発者ツールをオンにしてマクロを作成し、適切なコードを貼り付けるだけです。もちろん、VBA を使用せずに Excel に画像を挿入することもできます。ただし、この記事では VBA に焦点を当てます。

1. 開発者ツールをオンにする

Excel で VBA を使用するには、開発者ツールを有効にする必要があります。この操作により、デフォルトでは無効になっているリボンの [開発] タブが有効になります。

1. Excelを開きます。
2. [ファイル]メニューに移動します。
3. 画面の下部にある「オプション」をクリックします。[Excel のオプション]ウィンドウが表示されます。
4. Excel のオプションで、[リボンのカスタマイズ]タブに移動します。
5. [メイン タブ]で、[開発者]をオンにします。

これで、VBA アクセスを含む開発者ツールが有効になりました。Excel で VBA を使用するたびにこれを行う必要はありません。開発者ツールは、無効にするまで常に有効になります。

2. マクロを作成してコードを挿入する

1. Excel で、[開発]タブに移動します。
2. 「コード」セクションで「マクロ」を選択します。
3. 新しいウィンドウで、[マクロ名]にマクロ名を入力します。この記事ではinsertPhotoMacroを使用します。
4. 「作成」をクリックします。

「作成」をクリックすると、VBA ウィンドウが開き、マクロのコードが表示されます。現在、コードはマクロを開始するSubとマクロを終了するEnd Subの 2 行で構成されます。

このマクロに小さなコードを追加します。2 行の間に次のコード行を追加します。

Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With

最終的なコードは次のようになります。

このプロセスの保存について心配する必要はありません。VBA で行った変更はすぐに保存されます。

次に、コードが実際に動作する様子を見てみましょう。

1. VBA ウィンドウを閉じます。
2. Excel の[開発]タブに移動します。
3. 「コード」セクションから「マクロ」を選択します。
4. 作成したマクロを強調表示します。
5. 「実行」をクリックします。

挿入する画像ファイルの場所を尋ねるメッセージが開きます。写真を選択し、「開く」をクリックします。セル A1 に画像が表示されます。

Excel ではセル A1 に収まるように画像が縮小されることに注意してください。これを変更し、コードを変更して、他のセル (セル範囲も含む) に画像を挿入することができます。次のセクションでは、コードを分割してパラメータについて説明します。

3. コードを分割する

VBA コードが思い通りに動作するには、VBA コードを理解する必要があります。これを行うとき、任意のセルに任意のサイズで画像を挿入するようにコードを変更できます。

Sub insertPhotoMacro()
Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With
End Sub

コードが開始されると、Dim ステートメントを使用して変数の型が決定されます。photoNameAndPathとphoto という2 つの変数タイプがあります。最初に変数、次に画像です。

そこから、photoNameAndPath変数が実行され、写真ファイルの場所を取得するアプリケーションが開きます。これはApplication.GetOpenFileNameによって行われます。Titleパラメータはオプションです。その中の内容がウィンドウ名として表示されます。

If photoNameAndPath = False then Exit Subを使用すると、無効なアドレスまたは空のアドレスが指定された場合、プロセスは終了します。ただし、適切なファイルが提供されている場合、Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath) は、画像を元の定義どおりに変数として設定する必要があることを示します。アクティブなワークシートに挿入されます。

最後に、With photo とその後の 5 行を使用して写真の場所を決定します。.Leftと.Top は開始位置を指し、.Widthと.Heightは終了位置を指します。別のセルまたは範囲に画像を挿入する場合は、これらの行を変更する必要があります。

.Placement は、セルに合わせて画像のサイズを変更するか、フリーフォームで挿入する必要があることを示します。1に設定すると、セルに応じてサイズが変更されます。

最後に、上記のコードはEnd Withを使用してからEnd Sub を使用してマクロを閉じます。これで、変数photoNameAndPathとphoto を任意の名前に変更できるようになりました。コード全体で名前の一貫性を保つことを忘れないでください。

上記は、VBA を使用して Excel のセルに画像を挿入する方法です。この記事がお役に立てば幸いです。