Доброго дня коллеги подскажите, намекните или ткните носом есть изображение Картинка При скачивании и вставке на форму Вылетает ошибка 481 invalid picture Пробовал сохранять ручками сохранять картинку с сайта через Сохранить Как результат тот же, Вот так вставляю картинку
В основном на эту ошибку грешат что не поддерживаемый формат изображения, грешу на то что изображение с расширением jpg но при этом имеет другой формат, т.к. изображение без фона, пробовал пересохранить Pain'том в .bmp (выводилось сообщение что прозрачность будет недоступна), после чего картинка подгружалась без ошибок! Как вариант дописать пересохранение через paint, но не хотелось бы...
У вас формат картинки *.png это формат не поддерживается элементом управления Image1. Преобразуйте картинку в форматы которые подерживаются элементом управления Image1.
Картинки выгружаю на ресурс не я, поэтому была проблемка, победил её следующим образом (Правда костыль, но работает) Закидываю на лист картинку, и сохраняю ее обратно на комп с заменой предыдущей
Код
Function convert(sfile) As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sName As String, oObj As Object
sName = sfile
Set Tmp = Worksheets.Add
Tmp.Pictures.Insert(sName).Select
Set oObj = Selection: oObj.Copy
With Tmp.ChartObjects.Add(0, 0, oObj.Width, oObj.Height).Chart
.ChartArea.Border.LineStyle = 0
.Paste
.Export FileName:=sName, FilterName:="jpg"
.Parent.Delete
End With
Tmp.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Function