エクセルVBA IE 画像取得。指定のタグの中の画像のみをダウンロードしたい

Question

VBA詳しい方どうか教えて頂けると嬉しいです。

★やりたいこととして、指定URLの画像を取得したいのですが全部ではなく一部だけやりたいのですがやり方がわかりません(>_<)

例として、ホットペッパーのこのお店の全部の写真ではなく、添付画像の写真のみ（画像は何枚かあります）をダウンロードしてみてるのですが、全写真がダウンロードされてしまいます。店舗はランダムです。こちら

ネットで検索したコードを使用しているのですが、たぶんここを変えないといけないのかな。。とは思うのですが、、どうしたらいいか全くわからずで教えてほしいです。。

' IE ページ内 全imgタグ
For Each img In .document.getElementsByTagName("img")

全コードは以下です。

Option Explicit

Sub main()

'
' WS 設定値
'
Dim save_path As String
Dim get_url As String
Dim size_min As String
Dim size_max As String

' WS 設定取得
With ActiveSheet
get_url = .Range("B5").Value
save_path = .Range("B8").Value
size_min = .Range("B11").Value
size_max = .Range("F11").Value
End With

' WS 設定確認
If "" = Trim(get_url) Then
MsgBox ("画像を取得するページURLを入力してください。")
Exit Sub
End If
If "" = Trim(save_path) Then
save_path = ThisWorkbook.Path
End If
If "\" <> Right(save_path, 1) Then
save_path = save_path & "\"
End If
If "" = Trim(size_min) Then
size_min = 0
End If
If "" = Trim(size_max) Then
size_max = 999999999
End If
If Dir(save_path, vbDirectory) = "" Then
' 保存先フォルダがない
MsgBox ("保存先のフォルダがありません。")
Exit Sub
End If


'
' 処理開始
'
Dim ie As InternetExplorer
Dim img As HTMLImg
Dim src As String
Dim ary1, ary2
Dim name As String
Dim ret As Long

Dim count_saccess As Long
count_saccess = 0
Dim error_saccess As Long
error_saccess = 0

' IE 生成
Set ie = CreateObject("InternetExplorer.Application")
With ie
' IE 可視化
.Visible = True
' IE 取得用URL
.navigate get_url

' IE ページ表示待機
Sleep 1000
Do
Sleep 300
DoEvents
Loop Until (Not .Busy) And (.readyState = 4)
Sleep 1000

' IE ページ内 全imgタグ
For Each img In .document.getElementsByTagName("img")
' IMG 画像URL
src = img.src
' IMG パラメーター削除
ary1 = Split(src, "?")
' IMG ファイル名取得
ary2 = Split(ary1(0), "/")
name = ary2(UBound(ary2))
' IMG 拡張子なしは 強制jpg
If Not 0 < InStr(name, ".") Then
name = name & ".jpg"
End If

' Debug.Print img.Height
' Debug.Print img.Width
' Debug.Print name

' IMG 指定サイズで絞込み
If size_min < img.Height And size_min < img.Width And _
size_max > img.Height And size_max > img.Width Then

' IMG 画像ダウンロード
ret = URLDownloadToFile(0, src, save_path & name, 0, 0)
If ret = 0 Then
' ダウンロード成功
count_saccess = count_saccess + 1
Else
' ダウンロード失敗
error_saccess = error_saccess + 1
End If

End If
Next img

.Quit
End With
Set ie = Nothing


' ダウンロード 結果表示
MsgBox ("ダウンロード数 : " & count_saccess & vbCrLf & "エラー数 : " & error_saccess)

End Sub

参考にしたサイトはこちらです。

どうかよろしくお願いいたします。