I am a newbie with what I hope is a very simple issue which I can't solve.
I have a worksheet with a number of embedded images (inserted using the insert tool). These are called Picture1 and Picture2. I also have a userform (called userform1) which has an image control (image1). On the click on a button on the userform I want to programatically change the picture displayed in image1 in the form. I have worked out how to change this to a physical file on the hard disk using:
UserForm1.Image1.Picture = LoadPicture("c:\picture1.jpg")
What I would really like to do is use the embedded pictures in the worksheet. I have tried:
UserForm1.Image1.Picture = LoadPicture(Activesheet.shapes("Picture1"))
This doesn't seem to work and errors with 'Type Mismatch'.
If I change the code to:
UserForm1.Image1.Picture = LoadPicture(Activesheet.shapes("Picture1").Picture )
I recieve 'Object doesn't support this property or method'.
I'm sure that I'm pretty close but at the moment I can work it out.
Any help would be greaty appreciated.