WindowsXPまでで使えた裏技みたいなもので、タイトルに「図の選択」としていすると縮小版表示のダイアログになります。
Sub Sample24()
Dim F As Variant
'jpg形式のファイルをダイアログで選択させる
'タイトルを「図の選択」にすれば縮小版で表示されます。
F = Application.GetOpenFilename("画像ファイル (*.jpg), *.jpg", , "図の選択")
'キャンセルされた場合、終了
If F = False Then Exit Sub
'そのファイルヘのパスをダイアログで表示します。
MsgBox F
End Sub