Public Sub Test()
Dim objFill As FillFormat
Dim strURL As String
' Errors...
On Error Resume Next
' URL...
strURL = "http://www.maninweb.de/miscilleanous/rose.jpg"
' Create...
Set objFill = ThisWorkbook.Worksheets(1).Shapes("Picture").Fill
' Check...
If Not objFill Is Nothing Then
objFill.UserPicture strURL
End If
' Clear...
Set objFill = Nothing
End Sub