Shapes c Worksheets в UserForm.Image

[GWolf]

Доброго времени суток, друзья!

На Thisworkbook.Worksheets("Картинки"), размещены картинки: .Shape, у которых известны .Shape.Name.
В этой же книге запускается UserForm с .Image и, уже голову сломал, как в Image, загрузить Shape, отыскав его по имени.
Код типа:

Код Выделить Развернуть

Me.Controls.Item("imgZn") = ThisWorkbook.Worksheets("Картинки").Shapes.Name(nMZn) - не работает.
Подскажите, пожалуйста, как реализовать.
Варианты загрузки из папки с рисунками - находил, но хотелось бы с листа ... Если возможно?

Р.S. Если нужен пример - сделаю.

[Serge 007]

Здравствуйте

Код Выделить Развернуть

Private Sub UserForm_Initialize()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets("Ëèñò2").Pictures("Picture 3").Copy
    Set u = ThisWorkbook.Sheets.Add
    With u.ChartObjects.Add(0, 0, 100, 100).Chart
        .Paste
        .Export Filename:=ThisWorkbook.Path & "xxuu.jpg", FilterName:="jpg"
    End With
    u.Delete
    Image1.Picture = LoadPicture(ThisWorkbook.Path & "xxuu.jpg")
    Kill ThisWorkbook.Path & "xxuu.jpg"
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Посмотрите ответ Nic70y здесь