Экспорт картинок из Excel на диск - VB

Формулировка задачи:

Здравствуйте, уважаемые программисты.
Сразу хочу сказать, что я ни разу не программист и с Excel не очень дружу, но была поставлена задача написать макрос. Сама задача:
существует база данных в Excel, в ней в одной из колонок находятся значения (ID номера персонала), в колонке напротив фотографии (сами фотографии помещены в ячейки). Необходимо вытащить эти фотографии на диск из ячеек и присвоить этим фотографиям имена из столбца с ID номера персонала. Пример: допустим 5 строка, Вася Пупкин, 652314 (ID номер), :) (фото), необходимо сохранить фото на диск и чтобы имя фотки было 652314. Ручным способ делать это не вариант, так как таких Васей Пупкиных (т.е. строк) более 4 тыс. Скажите возможно ли написать такой макрос и если не сложно, то не могли бы вы мне в этом помочь, к сожалению, ссылки на литературу или просьба само обучиться не помогут.
Все откликнувшимся заранее спасибо!

Решение задачи: «Экспорт картинок из Excel на диск»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> oPic <font color="blue">As</font> IPictureDisp
...
                        <font color="blue">Set</font> es = ex.Shapes(rs!n)
                        <font color="00AA00">'Copy a picture on the chart with the correct format to the clipboard</font>
                        es.CopyPicture xlPrinter, xlPicture
                        <font color="00AA00">'Retrieve the picture from the clipboard...</font>
                        <font color="blue">Set</font> oPic = PastePicture(xlPicture)
...
                        SavePictureToFile oPic, <font color="teal">"D:\....\GIF\"</font> & s & <font color="teal">".gif"</font>, GIF

                        