Как вставить картинку имея её динамический URL?

Question

[Begginer_serg]

Добрый день, подскажите пожалуйста, как можно исправить следующий код?
Суть - есть форма, там каждый раз уникальная ссылка, код читает эту ссылку сохраняет в переменную 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

Comments

[alexalexes]

Анализируйте пустоту URL, прежде чем его использовать в канвасе.

[Begginer_serg]

Что понимается под "анализировать пустоту"? - после того как объявил URL использовал MsgBox (URL) - все отрабатывает.
Полагаю причина может быть в типе переменной, возможно после присвоения URL адреса переменная теряет тип string

[Денис _______________]

Begginer_serg, ну так верните тип, кажется это CStr

[Begginer_serg]

Денис _______________, увы не получилось

[Денис _______________]

Begginer_serg,
сделайте прогон, присвоив переменной URL текстовое значение пути явно. Как вариант в порядке бреда в строку может отдаваться невидимый символ в конце который влияет на путь, но внешне не заметен.

[Begginer_serg]

Денис _______________, задав явно - отработало должным образом.
Теперь в недоумении что делать с shp.TextFrame.TextRange.Text =)

[Денис _______________]

Begginer_serg,
надо проверять строку на корректность, например можно организовать вывод в текстовый файл, либо ошибка типов, но тип мы уже исправляли, значит возвращает не совсем корректный путь, ИМХО.

[Begginer_serg]

Денис _______________, удалил последний символ после присваивания переменной значения, все заработало.
Спасибо, Денис, за наводки.

[Денис _______________]

Begginer_serg,
Скорее всего добавлялся символ каретки, для перевода курсора на новую строку (ставится по Enter)... или пробел... В общем поздравляю!