picture.insert с гиперссылкой - PullRequest
Новая
       17

picture.insert с гиперссылкой

0 голосов
/ 05 июля 2019

У меня есть ссылка на картинку, которая генерируется автоматически.Теперь я попытался позволить кнопке вставить фактическое изображение в Excel, но, похоже, ничего не работает.

Отладчик выделяет часть «ActiveSheet» с кодами ошибок 4xx или 1xxx, когда я играю с подобными альтернативами - ActiveSheet.Pictures.Вмонтировать.Пока нет решения в Google. 

Sub Insert_Picture()

  Dim url
  Dim pic As String 'file path of pic
  Dim myPicture As Picture 'embedded pic

  url = Range("Tabelle1!A1").Value
  pic = "url"

  Set myPicture = ActiveSheet.Pictures.Insert(pic)

End Sub

1 Ответ

0 голосов
/ 05 июля 2019 
pic = "url"
Set myPicture = ActiveSheet.Pictures.Insert(pic)

Я полагаю, что вы обнаружите, что "url" не является действительным URL. Вы хотели написать pic = url вместо этого?

(Вы также можете использовать Dir, чтобы проверить, существует ли файл, прежде чем пытаться вставить его)

...