Private
Sub
UserForm_Initialize()
Dim
winHTTP
As
New
WinHttpRequest
Dim
Datei()
As
Byte
Dim
strURL
As
String
strURL = Sheets(
"Tabelle4"
).Range(
"A20"
)
winHTTP.SetProxy 2,
"192.168.1.1:800"
winHTTP.Open
"GET"
, strURL,
False
winHTTP.Send
Open
"temp.jpg"
For
Binary
As
#1
Datei() = winHTTP.ResponseBody
Put #1, 1, Datei()
Close
Image1.Picture = LoadPicture(
"temp.jpg"
)
End
Sub