Огромное спасибо, с картинками в excel работаю впервые, поэтому всех свойств не знаю, AlternativeText - запомню. У меня немного другая логика в проге: изначально при подгрузке jpg я знаю папку источник и " вгружать" картинки в файл меня не устраивает- обьем файла + картинки используются еще в одном файле, т.е. папка будет. Дальше, один из пользователей перенес копию таблицы в другое место, как показали мои эксперименты связь с папкой сохраняется, таблица нарядная, но я сделал форму с image и при попытке подгрузить в нее картинку нужен актуальный путь к папке источнику, повторюсь- картинки в таблице его отслеживают. Хочется его выцепить....  

Есть два варианта ActiveSheet.Shapes.AddPicture - это действительно подгружает картинку в файл екселя и можно пересылать куда угодно картинка в файле. Лист3.Pictures.Insert - это вставляет картинку как ссылку при перемещении файла в пределах сети (по моему) ссылка перестраивается и работает, но стоит переименовать папку с исходниками как получим пустую таблицу. По этому и возник вопрос как узнать для указанной картинки откуда она подгружена=папка источник. И, кстати видно по обьему файла- где с картинками, где ссылки.

В таблице расположены картинки, вставлены макросом через .Pictures.Insert, т.е. по сути ссылки, имена картинок определяю, но существует ли возможность запросить у картинки адрес папки откуда она подгружается на лист?

Спустя 8 лет.. Встала задача -после выбора очередного пункта в listbox, юзер должен добить комментарий (отдельный текстбокс), затем выбираем дальше по листбоксу. Т.е пока не заполнен текстбокс -блокировать выбор и изменение листбокса (единственная разница с ТС -прокрутку тоже блокируем). Проблема та-же листбокс остается кликабелен не смотря на enabled=false и накрыть его не удается -он сверху. Возможно кому пригодиться: 1 группа) прозрачность есть у label, textbox, image -эти слои прекрасно перемещаются вперед назад между собой по .ZOrder (0).  2 группа) располагаются Над 1й группой фрейм и листбокс -эти по слоям работают друг с другом но у них нет прозрачности. Свою задачу решил двумя способами. 1) когда надо держать заморозку листбокса -то все клики в ListBox1_Change отрабатываю снятием selected c кликнутого пункта, не 100%, не работает против судорожных кликов по листбоксу. И хороший вариант- 2) листбокс положил на фрейм и его свойство frame.enabled=false прекрасно работает, листбокс -блокируется.

Решил, всем участвовавшим СПАСИБО, телефонная книга работает , может кому пригодиться, привожу кусок кода по формированию строки вида
<Menu Name="Проходная">
          <Unit Name="ФИО" Phone1="123" default_photo="Resource:"></Unit>
</Menu>

With .appendChild(xml.createElement("Menu"))    ' создаём узел в XML  и добавляем в него значения
    .Attributes.setNamedItem(xml.createAttribute("Name")).Text = "Проходная"
           With .appendChild(xml.createElement("Unit"))    ' к элементу
              .Attributes.setNamedItem(xml.createAttribute("Name")).Text = "ФИО"
              .Attributes.setNamedItem(xml.createAttribute("Phone1")).Text = "123"
              .Attributes.setNamedItem(xml.createAttribute("default_photo")).Text = "Resource:"
              .Text = ""  'благодаря этой строке элемент Unit  в одну строку и "не раскрывающийся"
            End With
End With  

Привожу скрин образца который пытаюсь повторить.  

Огромное спасибо за ответ, но получается так:
<?xml version="1.0" encoding="UTF-8"?>
<YealinkIPPhoneBook>
<Title>Yealink</Title>
<Menu Name="Заводоуправление">
<Unit Name="Проходная логистический центр ТА посетителей" Phone1="227">
</Unit>
</Menu>
</YealinkIPPhoneBook>
, а по образцу нет закрывающего элемента </Unit> , есть просто />  ,  или это одинаково работает? И в образце элемент unit не раскрывающийся (не знаю как правильно).
И не получается сделать две строки unit c разными атрибутами, присваивается последний вариант атрибутов.  

Подскажите, делаю макрос для телефонной книги (куски надергал из всех подходящих примеров), есть образец xml файла:
<?xml version="1.0" encoding="UTF-8"?>
<YealinkIPPhoneBook>
 <Title>Yealink</Title>
 <Menu Name="Проходная логистический центр ТА посетителей">
   <Unit Name="Проходная логистический центр ТА посетителей" Phone1="227" Phone2="" Phone3="" default_photo="Resource:"/>
 </Menu>
</YealinkIPPhoneBook>

Как правильно записать в макросе реализацию строки Unit Name=.......