Прошу помощи по UserForm1.Image1.Picture = LoadPicture ()

kmak Пользователь Сообщений: 22 Регистрация: 05.12.2015	#1 29.01.2016 23:42:11 Ищу файлы jpg и загружаю их в Image1 Работает все нормально, но выкидывает (invalid picture) если название файла подобно такому d8a64d_0f40ca40b5304d129ee23c999ec128fa.jpg_srz_698_441_75_22_0.50_1.20_0.00.jpg М.б. есть ограничения для Image?

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

29.01.2016 23:49:00

ограничение, скорее, не имя файла, а его формат
возможно, под этим именем скрывается картинка формата PNG, — потому и ошибка
(что расширение у картинки JPG, — это ещё ничего не значит)
Откройте картинку в БЛОКНОТЕ, - если увидите в первой строке ‰PNG - значит, из-за этого и ошибка

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

kmak Пользователь Сообщений: 22 Регистрация: 05.12.2015	#3 30.01.2016 00:21:04 Игорь, Б.спасибо, так и есть!

kmak Пользователь Сообщений: 22 Регистрация: 05.12.2015	#4 30.01.2016 00:28:21 Как можно осуществить пропуск таких файлов?

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

30.01.2016 00:30:54

ну так и отслеживайте, - по ошибке:

Код

On Error Resume Next: err.clear ' сброс ошибок
UserForm1.Image1.Picture = LoadPicture ("....")
if err then
msgbox "Не получилось, - файл PNG"
else
msgbox "Всё ОК - файл подходящий"
end if

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

kmak Пользователь Сообщений: 22 Регистрация: 05.12.2015	#6 30.01.2016 00:46:45 Игорь, Не догадался, спасибо за подсказку!

Читают тему