ВСТАВКА ФОТО В ЛИСТ EXCEL С ПОМОЩЬЮ МАКРОСА (НУЖНА ПОМОЩЬ!)

[Menshikov]

Sergey.Kuznetsov@danone.com
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Роман, выложите пожалуйста файл, в который вам нужно вставлять картинки.

Добрый день, Сергей.
Я выслал образец файла Вам на электронную почту.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------

Sergey.Kuznetsov@danone.com
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Роман, выложите пожалуйста файл, в который вам нужно вставлять картинки.

Скачать файл Макрос.rar

Сергей, есть небольшая загвоздка, я написал о ней Вам на эл. почту
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------

Sergey.Kuznetsov@danone.com
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Роман, выложите пожалуйста файл, в который вам нужно вставлять картинки.

Скачать файл Макрос.rar

Добрый день, Сергей.
Я разобрался в чем проблема, у меня стоит новый EXCEL 2007, в нем все картинки вываливаются в одно место без расстановки по ячейкам.
Попробовал повторить операцию в старом Excel, все заработало, картинки вставляются.
Есть два вопроса:
1. Возможно ли адаптировать макрос под новый Excel?
2. Возможно ли чтобы фото было на 1 мм меньше ячейки с каждой стороны, это позволит устранить проблему копирования на другой лист, когда некоторые фотографии из-за размера близкого к размеру ячейки либо больше его не подцепляются?
Очень жду ответа.
Спасибо!

[kuznetsovSergey]

Данный код сделает размер картинок, чуть меньше ячейки
просто в коде поменяйте 2 строчки

Код: Выделить всё

 
Selection.ShapeRange.Height = 153.7
Selection.ShapeRange.Width = 186.25

[EducatedFool]

Может, такой вариант подойдёт?



По ссылке можно скачать архив с файлом Excel и папкой с картинками.
Макрос ищет подходящую картинку в папке (включая подпапки), и выводит её в ячейку справа.

Изображение подгоняется под ширину столбца.

[Menshikov]

Может, такой вариант подойдёт?



По ссылке можно скачать архив с файлом Excel и папкой с картинками.
Макрос ищет подходящую картинку в папке (включая подпапки), и выводит её в ячейку справа.

Изображение подгоняется под ширину столбца.

Спасибо ОГРОМНОЕ
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------

Может, такой вариант подойдёт?



По ссылке можно скачать архив с файлом Excel и папкой с картинками.
Макрос ищет подходящую картинку в папке (включая подпапки), и выводит её в ячейку справа.

Изображение подгоняется под ширину столбца.

Добрый вечер, спасибо за файлик, но у меня вопрос.
Он не работает с другими изображениями, к примеру в вашу папку я положил фото с именем 4011096, его же добавил в список и нажал запуск, в результате вставились только Ваши картинки, почему???
Также не меняется путь к папке в теле макроса, точнее он меняется но ни чего не находит.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------

Может, такой вариант подойдёт?



По ссылке можно скачать архив с файлом Excel и папкой с картинками.
Макрос ищет подходящую картинку в папке (включая подпапки), и выводит её в ячейку справа.

Изображение подгоняется под ширину столбца.

Добрый вечер, Ваш макрос СУПЕР!!!, со всем разобрался, есть один момент, точнее вопрос.
Он ищет 6-ти значные имена картинок, как изменить макрос чтобы он искал имена от 2 до 12 знаков???
Заранее спасибо за помощь!

ВСЕМ ОГРОМНОЕ СПАСИБО, ЗАДАЧА РЕШЕНА!!!!

[sulf]

Подскажите, пожалуйста, а как изменить макрос, чтобы искал фотки с названиями не из строго 6 символов, а от 2 до 10?
уже перепробовал все вариации с Left(fil.Name, 6) , и просто писал fil.Name и ничего не выходит.
help!

[VictorM]

Обратитесь на соседний форум к автору макроса Выбрать и вставить картинку в Excel

[Menshikov]

Подскажите, пожалуйста, а как изменить макрос, чтобы искал фотки с названиями не из строго 6 символов, а от 2 до 10?
уже перепробовал все вариации с Left(fil.Name, 6) , и просто писал fil.Name и ничего не выходит.
help!

ДОбрый день, макрос написан и он работает, напишите мне на mail (Menshikov_rk@mail.ru) тестовое письмо, я вышлю Вам образец макроса. Я на работе и доступ во внешние Интернет рессурсы нам запрещен, так, что не удобно писать на форму сайта.
Макрос дописывал не я, так что описать, что именно необходимо внем поправить не могу, есть готовая версия которая ищет картинки по любому постоянному (цифоровому) значению, не важно из какого кол-ва знаков оно состоит, причем ищет он фото не только в конкретной дериктории, но и на всем диске, все зависит от того, как прописан адрес в теле мароса