ExcelBanter - How to change picture

ExcelBanter (https://www.excelbanter.com/)

- Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)

- - How to change picture (https://www.excelbanter.com/excel-worksheet-functions/219397-how-change-picture.html)

How to change picture

hello...I am making one software in excel and i want to change picture when i
am click on that picture name in list box.........

How to change picture

PictName = ActiveSheet.ListBox1.Text
Set OldPict = ActiveSheet.Shapes(PictName)
PictLeft = OldPict.Left
PictTop = OldPict.Top
PictWidth = OldPict.Width
PictHeight = OldPict.Height
OldPict.Delete

Set NewPict = ActiveSheet.Pictures.Insert("H:\My Documents\My
Pictures\lincoln.jpg")
NewPict.Left = PictLeft
NewPict.Top = PictTop
NewPict.Width = PictWidth
NewPict.Height = PictHeight

"How to change Picture in excel software" wrote:

hello...I am making one software in excel and i want to change picture when i
am click on that picture name in list box.........