Sample URLs:
http://2.bp.blogspot.com/-n3-jdpE-oh0/VXV_HtmOdoI/AAAAAAAAARw/ovHmc6A2hPs/s1600/img1.jpg
http://sd-filestor-1.s3-eu-west-1.amazonaws.com/0d5b6af8-be00-4499-88a9-dcd5c8c2b6a1/d6ff6778-56f8-449c-be8a-e8a33546077e/2729C1A0AC0CFACD2B0F558046A2718A.jpg
Sub Image_Sizes()
Dim IE As InternetExplorer
Dim html As HTMLDocument
Dim ImageURL As String
Set IE = New InternetExplorerMedium
IE.Visible = False
Do Until IsEmpty(ActiveCell.Offset(0, -1))
ImageURL = ActiveCell.Offset(0, -1)
IE.Navigate ImageURL
' Wait while IE loading
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Set html = IE.document
Dim webImage As Variant
Set webImage = html.getElementsByTagName("img")
ActiveCell = webImage(0).Width & " x " & webImage(0).Height
If webImage(0).Width < 500 And webImage(0).Height < 500 Then ActiveCell.Offset(0, 1) = "Below 500 Pixels"
ActiveCell.Offset(1, 0).Select
Loop
'Cleanup
IE.Quit
Set IE = Nothing
End Sub
Cheers
Bookmarks