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