pedie
Well-known Member
- Joined
- Apr 28, 2010
- Messages
- 3,875
My current code.
How can i get an image from Internet. that will be gif file etc.
Pedie.Thanks
How can i get an image from Internet. that will be gif file etc.
Code:
Sub GetGIF()
'
Dim ie As Object
Set ie = CreateObject( _
"InternetExplorer.Application")
ie.navigate "http://www.microsoft.com/"
'Wait to link to page
Do While ie.busy And Not ie.readystate = 4
DoEvents
Loop
ie.Visible = True
'Wait some fixed time for page to load
Application.Wait Now + TimeSerial(0, 0, 2)
'close IE
ie.Quit
Set ie = Nothing
End Sub
Pedie.Thanks