Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
При вставке изображения на форму вылетает ошибка 481
 
Доброго дня коллеги подскажите, намекните или ткните носом :D
есть изображение Картинка При скачивании и вставке на форму Вылетает ошибка 481 invalid picture
Пробовал сохранять ручками сохранять картинку с сайта через Сохранить Как результат тот же,
Вот так вставляю картинку

Код
Image1.Picture = LoadPicture(ТамГдеКартинка)
Изменено: lexey_fan - 19 Май 2015 16:46:02
Если очень захотеть - можно в космос полететь ;)
 
lexey_fan, а по коду ошибка искали? Чего сайты говорят?
Учусь программировать :)
 
В основном на эту ошибку грешат что не поддерживаемый формат изображения, грешу на то что изображение с расширением 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
Изменено: lexey_fan - 21 Май 2015 14:22:48
Если очень захотеть - можно в космос полететь ;)
Страницы: 1
Читают тему (гостей: 1)
Наверх