VBA初心者ですが、ネットで調べてエクセルからoutlookメールを一括送信するVBAを実行し、成功しました。さらに、指定のエクセル表に画像①のURLリンクを貼り付けることで、受信者がメール内で画像を閲覧できるようにする方法を教えていただけますか？

もちろんです、お手伝いします。

VBAを使用して、エクセル表に画像のURLリンクを貼り付ける方法はいくつかありますが、以下の手順を試してみてください。

1. まず、画像をエクセルのセルに挿入します。これには、以下のコードを使用します。

“`vba
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(“シート名”)

Dim pic As Picture
Set pic = ws.Pictures.Insert(“画像のファイルパス”)

With pic
.Left = ws.Cells(行番号).Left ‘ 画像を挿入するセルの左端に合わせる
.Top = ws.Cells(行番号).Top ‘ 画像を挿入するセルの上端に合わせる
.ShapeRange.LockAspectRatio = msoFalse ‘ アスペクト比の固定を解除する
.ShapeRange.Height = ws.Cells(行番号).Height ‘ 画像をセルの高さに合わせる
.ShapeRange.Width = ws.Cells(行番号).Width ‘ 画像をセルの幅に合わせる
End With
“`

上記のコードでは、”シート名”と行番号を適切な値に置き換え、”画像のファイルパス”には挿入する画像のファイルパスを指定してください。

2. 画像のURLリンクを作成し、それをエクセルの別のセルに貼り付けます。以下のコードを使用してください。

“`vba
ws.Cells(行番号2, 列番号).Hyperlinks.Add _
Anchor:=ws.Cells(行番号2, 列番号), _
Address:=URLリンク, _
TextToDisplay:=”リンクテキスト”
“`

上記のコードでは、行番号2と列番号を適切な値に置き換え、URLリンクには画像のURLを指定してください。

これで、エクセル表に画像のURLリンクが挿入されます。これらの手順を必要な数だけ繰り返して、すべての画像を挿入およびリンク付けすることができます。

なお、上記のコードは一例であり、作業する環境や具体的な要件に応じて変更する必要があるかもしれません。適宜調整してください。

どうでしょうか？ご参考になりましたでしょうか？