Merhaba,

Dim myURL As String

Dim WinHttpReq As Object



myURL = "https://accesstr.net/images/logo-amp-buyuk.png"





Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")



WinHttpReq.Open "GET", myURL, False, "username", "password"

WinHttpReq.send



myURL = WinHttpReq.responseBody

If WinHttpReq.Status = 200 Then

    Set oStream = CreateObject("ADODB.Stream")

    oStream.Open

    oStream.Type = 1

    oStream.Write WinHttpReq.responseBody

    oStream.SaveToFile CurrentProject.Path & "\resimadi.png", 2 ' 1 = no overwrite, 2 = overwrite

    oStream.Close

End If

şeklinde kod kullanabilirsin. resimadi.png yerine resmin kaydedileceği adı veya değişkeni yazabilirsin.

---

Sayın @"accessdelisi" çözüm işinize yaradı mı acaba?