Профессиональные приемы работы в Microsoft Excel

Обмен опытом => Microsoft Excel => Тема начата: GWolf от 03.02.2022, 21:43

Название: Shapes c Worksheets в UserForm.Image
Отправлено: GWolf от 03.02.2022, 21:43
Доброго времени суток, друзья!

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

Р.S. Если нужен пример - сделаю.
Название: Re: Shapes c Worksheets в UserForm.Image
Отправлено: Serge 007 от 07.02.2022, 11:10
Здравствуйте

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 здесь (http://www.excelworld.ru/forum/12-48119-322998-16-1644049656)