Выгрузить картинку с листа Excell в Image Userform'ы

[Hoochara]

Добрый день, уважаемые форумчане.
Собственно вопрос:
Как определить месторасположение картинки на листе Excell и
как в Userform в Image выгрузить картинку с листа Excell?
Спасибо.

[EducatedFool]

1) если картинок много, но мы знаем, в какой ячейке находится картинка,
получить картинку можно при помощи функции getShape:

Function getShape(ByRef cell As Range) As Shape
    Dim sha As Shape
    For Each sha In cell.Worksheet.Shapes
        If sha.TopLeftCell.Address = cell.Address Then
            Set getShape = sha: Exit Function
        End If
    Next sha
End Function

2) далее картинку надо сохранить в файл.
Делается это через диаграмму.
Смотрим пример кода здесь: http://excelvba.ru/code/ExportPictures

3) Ну а из файла картинка подгружается методом LoadPicture:

Set userform1.Image1.Picture = LoadPicture("полный путь к файлу картинки")