Не могу решить один вопрос.!!Хелп.....EXEL!!изображения !!!

[Shlema]

Народ помогите.
Есть папка с изображениями.
Нужно из Этих изображений сделать таблицу Эксель в виде Изображение-название файла.

Вопрос КАК??....

Изображений больше 100....

Срочно ХЕЛП!!!

Конечная цель должна быть следующая: Лист Эксель, в нем два столбца в одном Изображение в другом названия файла от куда взято изображение.

[EducatedFool]

Есть папка с изображениями.

Где есть? Эта папка всегда в одном и том же месте?
Или каждый раз макрос должен выводить диалоговое окно выбора папки?

Лист Эксель, в нем два столбца в одном Изображение

Изображение вставлять без изменения размеров?

Срочно ХЕЛП!!!

Куда так торопитесь?
За срочность надо платить... если готовы заплатить (WebMoney), сделаю за 20 минут.

[EducatedFool]

Вот, переделал один из своих макросов:



Можно указать любую папку:

    ' оставьте одну из следующих двух строк:
    ПутьКПапкеСКартинками = "C:\Documents and Settings\Игорь\Рабочий стол\тест"    ' конкретный файл
    ПутьКПапкеСКартинками = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")    ' там же, где и этот файл

[Shlema]

НЕ настолько срочно...но озвучь стоимость....
Изображения вставлять без изменения размеров
Папки всегда разные будут.

Цель такой работы формирование бланков заказов.

Т.е. есть папки с изображениями (всегда разные)... Необходимо из изображений которые там есть сформировать упорядоченный файл Ексел Изображение-Имя файла.

[EducatedFool]

сформировать упорядоченный файл Ексел

Если все картинки вставлять в натуральную величину, то выглядеть всё это может не лучшим образом...
Я бы посоветовал, как в моём примере, назначать всем картинкам одинаковую ширину, а высоту уже подбирать, исходя из пропорций.

но озвучь стоимость....

Сколько сам готов заплатить?

Т.е. есть папки с изображениями

В папках попадаются файлы, не являющиеся картинками?
Какие типы картинок встречаются (интересуют расширения файлов)?
Искать ли картинки в подпапках (или только в выбранной папке)?

[elf80]

Добрый день! Уважаемый EducatedFool по какому критерю выбраются рисунки? У меня собирает 4-5шт из 100

[EducatedFool]

по какому критерю выбраются рисунки? У меня собирает 4-5шт из 100

Когда я писал этот макрос (давно дело было), требовалось отобрать только картинки .jpg

        For Each fil In curfold.Files
            If fil.Name Like "*.jpg" Then FileNames.Add fil.Path, Left(fil.Name, 6) & "a"
        Next
        For Each sfol In curfold.SubFolders

Видимо, поэтому у Вас отображается так мало картинок.
Ну и ещё - производится отбор картинок с первыми 6-ю уникальными символами в имени файла:

FileNames.Add fil.Path, Left(fil.Name, 6) & "a"

Разумеется, эти параметры легко убрать.

[Shlema]

Сколько сам готов заплатить?

Пойми правильно я как покупатель хочу сэкономить...поэтому изначально назову минимальную сумму.))...

Ты как продавец на эту сумму не согласишься..))..И сделка не состоится....Поэтому озвучь свою стоимость...Если она меня не устроит..будет идти обсуждение цены....

[elf80]

Спасибо!!! Переделал немного под себя, всё замечательно работает!

[elf80]

Возможно ли указать все расширения графики и как это сделать?