Добрый день, подскажите пожалуйста, как можно исправить следующий код? 
Суть - есть форма, там каждый раз уникальная ссылка, код читает эту ссылку сохраняет в переменную URL и потом вставляет это фото. Но не получается вставлять через переменную - только если задавать путь через "url".. 
Sub urlfetch()
    Dim shpCanvas As Shape
    Dim i As Byte
    For Each shp In ActiveDocument.Shapes
    If shp.Name = "urlbox" Then
        URL = shp.TextFrame.TextRange.Text
        Set shpCanvas = ActiveDocument.Shapes.AddCanvas(Left:=20, Top:=790, Width:=20, Height:=10)
        shpCanvas.CanvasItems.AddPicture FileName:="https://stihi.ru/pics/2016/11/30/4463.jpg"
    End If
 Next
End Sub

