от
У меня есть ссылка на картинку, которая генерируется автоматически. Теперь я пытался дать кнопку вставить изображение в Excel, но ничего не работает. Отладчик подсвечивает "параметру activesheet" часть с коды ошибки 4xx или 1xxx, когда я играю вокруг с подобной альтернативы - параметру activesheet.Фотографии.Вставить. Никакого решения до сих пор на 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 голосов
от
pic = "url"
Set myPicture = ActiveSheet.Pictures.Insert(pic)
Я верю, что вы найдете то, что
"url"
-это не действительный URL-адрес. Ты хотел написать вместо
pic = url
? (Вы также можете использовать
Dir
, чтобы проверить, если файл существует, прежде чем пытаться вставить его)
...