Под действием читанного на планетаэксел.ру слепил вставку картинок в примечание к ячейке. (вложенный файл).
Где можно применять? Например:
-Товар - картинка
-Сотрудник - фото
-Сводка личного фотоальбома
...
Решил помочь нашим товарникам.
Вариант возможно сырой, но у меня работает. Если есть желание, можно совместными усилиями довести до конфетки.

Краткое описание:
1)Открыть лист
2)приготовить 3 столбца:
куда вставлять примечание,
имена каталогов без последней "\", как они копируются из адресной строки проводника
имена файлов
3) Внутри "Sub InsPicts()" в строке констант задать диапазоны из п.2 (сейчас вставляет в "В:В")
4) выполнить макрос "Sub InsPicts()"

При выплнении будут информационные окна о каждом файле, их можнж удалить из макроса.
После всех вставок будет сообщение об окончании.
Пустые имена файлов макрос пропускает.

Дорабатывать можно дофига чего.

А, вот важные ограничения.
На листе не должно быть шейпов. Сейчас у меня индекс шэйпов равен индексу ячейки, куда вставляется примечание. Писалось, что кнопочки Автофильтра тоже шэйп?

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

Версия 2.
Немного пригладил.
Из принципиальных изменений.
1) попытка учесть присутствие шэйпов. Для этого очистку всех примечаний внёс в цикл. Теперь по задумке работает так:
-Смотрит текущую строку.
-Если имя файла пусто, то переходим на след строку,
- иначе удаляем примечание (если есть), находим сколько шейпов осталось и вставляем новое.
-Новый шэйп получает индекс+1.

2) Чтобы изменить одно или несколько примечаний по задумке достаточно оставить имена файлов только в нужных строках, а остальные стереть.

3) Путём несложной адаптации можно вызывать формулой из ячеек.

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

Вопрос! Почему не работает выборочное удаление примечания (в версии 2)?
Это во фрагменте:

Не удаляет ни так
ни так
В то же время работает.

Да-да, сейчас решил поискать и нашёл. Надо вот так:

rrng.Cells(i, 1).ClearComments

Сейчас файл залью.

Версия 3.
Теперь должна обновлять ячейки и по отдельности.

Может теперь от меня отстанут? )