Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Shapes c Worksheets в UserForm.Image

Автор GWolf, 03.02.2022, 21:43

« назад - далее »

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 здесь
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390