excel - VBA - Web サイトを開いて .GIF 拡張子として保存する

Question

画像を含む Web ページを開いて、.GIF 拡張子としてデスクトップに保存しようとしています。以下のコードは、テスト ページを開きます。

Sub test()
    Dim IE As Object, Doc As Object
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True
    IE.Navigate "http://www.orseu-concours.com/54-189-thickbox/epso-numerical-reasoning-test-2-en.jpg"

    Do While IE.ReadyState <> 4: DoEvents: Loop
    Set Doc = CreateObject("htmlfile")
    Set Doc = IE.Document
End Sub

次のステップは、ページを .GIF として保存することです。これを手動で行うには、画像を右クリックして [保存] を押して名前に .gif 拡張子を追加するか、ページで CTRL+S を押して画像として保存します。

API 関数URLDownloadToFileを試しましたが、アプリケーションに使用している画像はページが更新されるたびに更新され、保存された画像が開いている画像と同じである必要があるため、上記の関数は 2 つの異なる結果になるため使用できません。画像。

可能であれば、これに SendKeys を使用しないようにしています。