Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Картинка на лист по умолчанию вставляется в уменьшенном виде
 
#1
21.06.2014 00:34:49
Здравствуйте!

сегодня пол дня возился с картинками (увеличение по клику)


Дано: картинка jpg
Диагноз: вставляется на лист Excel в уменьшенном виде
(картинки 111 и 222 вставляются неправильно. 333 для примера - вставляется правильно)
Лечение: удалить Exif из 111 и 222

не помогает:
пересохранение в фотошопе в jpg
пересохранение в фотошопе в png
кадрирование (обрезка) с пересохранением ACDSee
кадрирование (обрезка) с пересохранением в фотошопе
помогает:
PrintScreen картинки в натуральную величину, вставка в любой редактор, сохранение
смена формата jpg -> png ACDSee
удаление Exif данных (например с помощью ShowExif)

Архив с листом Excel и картинками (300 кб) http://rghost.ru/56491755

что самое интересное - эти картинки с неправильными Exif даже умудряются выбивать Excel в аут при точном подборе размеров на куске кода:
(код с сайта http://excelvba.ru/code/PastePictures)
Код
If AdjustWidth Then    
 PicRange.Cells(1).ColumnWidth = PicRange.Cells(1).ColumnWidth * ph.Width / PicRange.Cells(1).Width
   While Abs(PicRange.Cells(1).Width - ph.Width) > 0.1    ' точный подбор ширины ячейки
    PicRange.Cells(1).ColumnWidth = PicRange.Cells(1).ColumnWidth - 0.2 * (PicRange.Cells(1).Width - ph.Width)
   Wend
End If  
т.е. обычная картинка нормально проезжает по коду, а картинки 111 и 222 его зависают (там цикл не завершается)
это можно посмотреть в файле Книга1_.xlsm по кнопкам "НЕ зависает" и "зависает"

основную проблему, которая была по поводу этих картинок
можно посмотреть по кнопке "test"
Изменено: KUDRIN - 14.12.2014 15:45:06
 
 
 
#2
21.06.2014 01:24:17
Сразу подозревал, что проблема в разрешении картинок. у 111 и 222 оно 300dpi, у 111 без Exif - 96, а у 333 - сразу 96.
Экранное разрешение по умолчанию - 96. Поэтому Эксель и сжимает 111 и 222: у них размер в дюймах прописан в Exif.
Чтобы именно с этими картинками исправить уменьшение сделайте такую строчку
Код
ph.Width = ph.Width * 300 / 96
Причем изменять надо только 1 измерение. Иначе растянет в 2 раза. А вот как передать разрешение картинки в эксель - не знаю  :)  

Уберите маркеры изменения размеров ячейки в процедуре ПримерВставки... - перестанет зависать, так как не может подобрать высоту строки ровно под размер картинки, потому и циклит
Ну либо заранее меняйте разрешение картинки на 96
F1 творит чудеса
 
 
 
#3
21.06.2014 01:47:57
hohlick, свои сообщения можно править-дополнять.
 
 
 
#4
14.12.2014 13:48:41
можно каким-то vba кодом удалить данные Exif?
нашел только темы, где советуют скачать cls файл для чтения Exif

может в References есть модуль для удаления вообще всех exif данных?
ведь без предварительного удаления exif практически невозможно работать с вставкой картинок в файл.
Изменено: KUDRIN - 14.12.2014 13:53:56
 
 
 
#5
15.12.2014 08:43:01
Доброе время суток
KUDRIN,  можно модифицировать код от David Crowell под себя для записи "правильного" разрешения (в исходном только читает). Или воспользоваться библиотекой Tools/References - Microsoft Windows Image Acquisition Library 2.0 (но предустановлена ли с вашей версией Windows и разрядностью офиса не знаю).
Успехов!
 
 
 
#6
02.01.2015 17:12:40
как вариант еще можно перед вставкой сохранять в файл и читать из него правильное разрешение
потому что напрямую вставлять практически невозможно
у картинок в 100 пикселей размеры .width прыгают от 10 пикселей до 10000. в таком случае даже масштабирование не помогает, погрешность до 30%
Изменено: KUDRIN - 02.01.2015 17:16:01
 
 
 
#7
02.01.2015 18:42:28
Цитата
KUDRIN пишет: Лечение: удалить Exif из 111 и 222
все посты не читал в этой теме,поэтому вероятно есть ответ на мой вопрос.
скажите,что такое Exif и как вы его удалили ?
 
 
 
#8
02.01.2015 21:25:41
Цитата
Karataev пишет: что такое Exif
А такне пробовали спросить?
 
 
 
#9
02.01.2015 21:28:32
а как он их удалил ? в экселе или в какой- то другой программе ?
 
 
 
#10
02.01.2015 22:07:56
Цитата
Karataev пишет: все посты не читал в этой теме
И зря. Ответ в самом первом.
 
 
 
#11
02.01.2015 22:13:52
автор удалил с файлообменника  файлы . как посмотреть эти рисунки с exif ?
 
 
 
#12
02.01.2015 22:16:13
Любая фотка с фотоаппарата (телефона)
 
 
 
#13
02.01.2015 22:16:48
Если воспользоваться готовым решением для вставки картинок
http://excelvba.ru/programmes/PastePictures
со включенной опцией сжатия, - EXIF и прочая ерунда будет удалена автоматически
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#14
03.01.2015 02:05:19
Цитата
Karataev пишет: как посмотреть эти рисунки с exif ?
например две картинки
Код
aaa = "http://s009.radikal.ru/i309/1501/c2/b04b31594b4e.jpg"
Call ActiveSheet.Shapes.AddPicture(aaa, msoFalse, msoCTrue, 0, 0, -1, -1)
aaa = "http://s04.radikal.ru/i177/1501/3b/44ebfe1ec99a.jpg"
Call ActiveSheet.Shapes.AddPicture(aaa, msoFalse, msoCTrue, 0, 0, -1, -1)
первая вставляется увеличенная на лист
вторая уменьшенная
Изменено: KUDRIN - 03.01.2015 11:22:17
 
 
 
Страницы: 1
Читают тему
Наверх