Copy Picture from Web to Excel
The following code pastes the picture from Web to the Excel range. The two parameters required by the function are the URL of the picture and address of target Excel range. The function Test at the bottom is given as an example. To get the url of the picture right click the picture and in the properties copy the Address (URL) if you are using Internet Explorer; right click and copy image url in Google Chrome; right click and copy image location in Firefox.
Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range) Dim shp As Shape With rngTarget With .Parent .Pictures.Insert strShpUrl Set shp = .Shapes(.Shapes.Count) End With shp.Left = .Left shp.Top = .Top End With Set shp = Nothing End Sub Sub Test() Call GetShapeFromWeb("http://excelexperts.com/sites/default/files/logo.jpg", Sheet1.Range("F3")) End Sub