Расстановка названий картинок на листе (над каждой картинкой)

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

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

05.02.2018 12:31:30

Здравствуйте, добрый люди.
Вопрос у меня есть, такого содержания:

Есть макрос расставляющий по ячейкам с единицами рисунки из папки.
Как заставить макрос - над каждой вставленной картинкой(то есть на верхней строке под каждой картинкой) - добавлять название вставленного фото-файла ?
(в файле - я написал названия файла - в тех местах, где оно должно быть)

Прикрепленные файлы

1.rar (33.62 КБ)

Alemox Пользователь Сообщений: 2184 Регистрация: 25.02.2013	#2 05.02.2018 12:58:01 Как-то так Прикрепленные файлы Книга.xlsm (31.8 КБ) Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.

Werwolfik Пользователь Сообщений: 24 Регистрация: 27.12.2017	#3 05.02.2018 21:11:31 Alemox, подскажите - а как расширение jpg убрать с надписей ?

Alemox

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

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

06.02.2018 08:53:03

Код
ActiveSheet.Cells(r.Row - 1, r.Column) = Mid(n, 1, Len(n) - 4)

Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.

Werwolfik Пользователь Сообщений: 24 Регистрация: 27.12.2017	#5 06.02.2018 09:11:37 Alemox, большое спасибо. Теперь все работает.