Urls using instructions

[Ansh]

Hi
can you please guide me how to execute this kind of function or how to use in excel dev.

Sub ImageExists()
Dim aPic() As Byte
Dim objWin As Object
Const strUrl As String = "http://upload.wikimedia.org/wikipedia/commons/2/22/Turkish_Van_Cat.jpg"
Dim ImageExists As Boolean

Set objWin = CreateObject("WinHttp.WinHttpRequest.5.1")
On Error Resume Next
With objWin
.Open "GET", strUrl, False
.Send
aPic = .ResponseBody
End With
Set objWin = Nothing


ImageExists = (InStr(StrConv(aPic, vbUnicode), "404 Not Found") = 0) And (Err.Number = 0)
End Sub

 

[Colo]

Hi,
To make it work, you need to place the code into a standard module.
Press Alt +F11 at the same time so that Visual Basic Editor opens.
Press Alt, I, M to insert a new standard module.
Now you can run the procedure from Macros in the Code section in the Developer tab.
Note:
The Developer tab isn't displayed by default, but you can add it to the ribbon.
1. On the File tab, go to Options > Customize Ribbon.
2. Under Customize the Ribbon and under Main Tabs, select the Developer check box.

 

[Colo]

Oh, I didn't notice your question has been posted in Questions in Other Languages. It's a forum for posting questions other than English.

To moderators:
Better move this thread to the Excel Questions forum.