Static Content Server

Sub URLPictureInsert()
Dim obrazek As Shape
On Error Resume Next
ActiveSheet.Pictures.Insert(ActiveSheet.Range("D1").Value).Select
Set obrazek = Selection.ShapeRange.Item(1)
If obrazek Is Nothing Then GoTo nic
With obrazek
.LockAspectRatio = msoTrue
.Width = Range("B11").Value
.Height = Range("B11").Value
End With
nic:
Set obrazek = Nothing
Range("D3").Select
End Sub