Фотографии с названиями и подписями

[Rashanea]

У меня есть папка с фотографиями. Мне нужно поставить их в Word Документ что-бы они шли друг за другом и под ними было написано название фотографий. Вот пример . Что-бы фотографий также шли ниже. Возможно-ли такое?

[Rashanea]

Очень сильно нужно. Помогите чем можите.

[Sasha_Smirnov]

Да, это возможно. Всю папку сразу (у меня) вставить не получилось, но если фотографий не много, то вполне приемлемо вставлять их по одной. Вот так:

• откройте Word и ваш документ
• откройте фото, затем: правая кнопка мыши (пкм) > Копировать
• пкм в вашем документе > Вставить

И ещё такая вещь: левой кнопкой щёлкайте по всем вставленным в Word фото, затем сразу же — правой, и там есть команда: "Подпись..." Вот через неё и подпишите все свои рисунки и фото! А то у вас, извините, котлеты отдельно, а мухи отдельно... То есть название изображения "гуляет само по себе".

[EducatedFool]

Ну, во-первых, добавить картинки из папки в вордовский документ весьма просто.
Для этого выделяем нужные файлы (с картинками) в папке, и мышкой перетаскиваем их в окно документа.

Если же надо добавить подписи к картинкам, - то это сложнее.

Посмотрите пример во вложении.
В документе Word запустите макрос ДобавлениеКартинок

Макрос сначала удаляет всё содержимое документа, а потом вставляет по одной картинки из папки "фото", добавляя к каждой картинке подпись (имя файла без расширения ".jpg").

Внимание: папка с изображениями должна назваться "фото", и располагаться в той же папке, что и документ с макросом.


=============== добавлено позже ====================

У меня на сайте есть готовая программа для вставки изображений на лист Excel:
http://excelvba.ru/programmes/PastePictures

Надстройка позволяет искать в выбранной папке изображения, основываясь на содержимом ячеек таблицы Excel, и производить вставку найденных изображений в соседние ячейки (или в примечания к этим ячейкам).

Кроме того, надстройка умеет скачивать изображения по ссылкам, сохраняя загруженные изображения в заданной папке, и вставлять картинки в примечания к ячейкам.




Особенности надстройки вставки изображений:

• загрузка изображений по ссылкам (обычная гиперссылка, просто текст ссылки - URL, формула =ГИПЕРССЫЛКА(), и т.п.)
• поиск картинок в подпапках заданной папки (глубина поиска по подпапкам не ограничена)
• установка выбранного пользователем размера для вставляемых изображений
• отображение состояния поиска и вставки изображений (прогресс-бар)
• вывод результатов обработки таблицы (сколько изображений вставлено, сколько не найдено)
• добавление гиперссылок к вставляемым изображениям (по щелчку на картинке открывается исходный файл)
• 2 режима поиска файлов - по точному совпадению имени файла, и по началу имени файла-изображения
• 2 режима вставки картинок - подгонка размеров под ячейку, или соблюдение пропорций исходного изображения
• вывод количества файлов в выбранной папке
• возможность выбора столбца с названиями файлов, и указания номера столбца для вставляемых изображений
• возможность вставки изображений в комментарии к ячейкам

Запуск вставки изображений выполняется из меню программы (на панели инструментов)

Надстройка вставки картинок в Excel теперь поддерживает обновления - поэтому отныне надстройка будет регулярно получать новые полезные функции.

Новый функционал будет добавляться в надстройку по мере поступления ваших пожеланий.

[Rashanea]

EducatedFool
Всё предельно просто но всёравно что-то не получается.
1. Как мне создать этот макрос в своём документе Word, или как он называется в анг Word'е если он есть, если надо самому создать, то как?
В твоём Word'е не получается ето зделать, пищется что в данном пректе етот макрос выключен.

[viter.alex]

Сообщение от Rashanea

EducatedFool
Всё предельно просто но всёравно что-то не получается.
1. Как мне создать этот макрос в своём документе Word, или как он называется в анг Word'е если он есть, если надо самому создать, то как?
В твоём Word'е не получается ето зделать, пищется что в данном пректе етот макрос выключен.

Тебе нужно смотреть параметры безопасности и разрешить запускать все макросы. В 2007 Word'e «Кнопка «Office»→Параметры Word→Центр управления безопасностью (выбрать в колонке слева)→Кнопка «Параметры центра управления безопасностью»→Включить все макросы». Там же поставь на всякий случай галочку «Доверять доступ к объектной модели VBA». И будет тебе счастье.

[Rashanea]

Сообщение от viter.alex

Тебе нужно смотреть параметры безопасности и разрешить запускать все макросы. В 2007 Word'e «Кнопка «Office»→Параметры Word→Центр управления безопасностью (выбрать в колонке слева)→Кнопка «Параметры центра управления безопасностью»→Включить все макросы». Там же поставь на всякий случай галочку «Доверять доступ к объектной модели VBA». И будет тебе счастье.

Пасиба, выручили.

[Rashanea]

У меня вопрос насчет этого макроса. Он добавляет несколько картинок пока(сколько влезут в 1 страницу) потом добавляет фотографий сверху, можно это как-то изменить, что-бы они шли вниз? И изменить шрифт.

[viter.alex]

Попробуй так. Шрифт поменяй в процедуре AddText

[Rashanea]

Сообщение от viter.alex

Попробуй так. Шрифт поменяй в процедуре AddText

Они разбрасываются хаотично и текст вообще теряется где-то, в общем мне надо создать каталог продуктов, и подписями ID, а я не думаю что в таком хаотичном порядке что-то получится. Просто нужно в прошлый макрос добавить команд и что там нужно(я в этом нуль) чтобы они добавлялись дальше вниз.