Image on Worksheet

[AlexanderBB]

Came across this

Re: Handling click event on images
put an image on the sheet. righlcick and click view code
you will get something like this
Private Sub Image1_Click()
End Sub

But I cannot figure out or find how to put an image on a sheet.
I did put an ActiveX image with a Picture just how I wanted but there was no Click event.
Is there some way to get a click-aware image? I want a click on it to Open a UserForm

 

[jolivanes]

If you right click on the image/shape you should be able to select "Assign Macro" and select the macro to open your UserForm.
BTW, is your main problem getting a picture/image/shape onto your sheet?
How would you like to do this? Manually or with a macro?
If with a macro. do you want the capability to choose the image?
Do you need/want the image positioned at a certain place on you sheet and does it need to be sized to fit a certain range of cells?
This will put a picture with Cell C2 as top left cell and original picture size. Change folder reference and picture name as required.

ActiveSheet.Shapes.AddPicture("C:\Folder Name\Picture Name.JPG", 0, -1, Cells(2, 3).Left, Cells(2, 3).Top, -1, -1).Name = "Picture 1"

 

[AlexanderBB]

Thanks for the reply. I found the Active X images wasn't much good for firing a click event. So I tried just pasting one and that worked.
Then changed to your code and that was even better. I want the same picture on 5 sheets so code will be handy.
It is on cell B1 and the cell already has text in it so being able to resize is great.
Don't suppose the image can show a pop-up comment ?

 

[jolivanes]

Depends on what you consider to be a pop-up comment
You can certainly make your own (UserForm) nice message that pops up when clicking the image, or if you want to a message box.

Sub Show_Message()
    MsgBox "Well, hello there, how are you?"
End Sub

 

[AlexanderBB]

I meant one that shows as the mouse hovers over it, but looks like that's a No.

 

[Jaafar Tribak]

I meant one that shows as the mouse hovers over it, but looks like that's a No.

I remember doing something a few years back:

A Cool Generic ToolTip Class for Worksheet ActiveX Controls

Workbook Demo Hi Excellers, As the title says, this is a Class that creates ToolTips for worksheet controls .. The tooltips are made out of office AutoShapes Some of its fun features : 1- Works for all controls except for Spin and ScrollBrar controls 2- You can create a tooltip for different...

www.mrexcel.com

 

[jolivanes]

Text Hover over Image

Hi All, I am using an image for an icon on my worksheet to which I have assisigned a Macro. Is it possible to have descriptive text displayed when the mouse id moved over the image?

www.mrexcel.com

Have a look at the above thread. Mr Jon v/d Heyden has an answer there for you

 

[AlexanderBB]

Struck a few gotcha's. Jolivanes unfortunately using the method disables the click event for the image.
I couldn't find a click event for ActiveX Label.
Jaafar, I have all that ready to go, but if I compile it complains about With Sheet1.CommandButton1
I don't have a command button1, or a Sheet1. I see 4 setup routines so I REMed out
all but the Image control section and renamed the worksheet "Sheet1". Then changed to With Sheet1`.Picture1.

But no joy, and that'll be because my picture isn't an image control. That had no click event I could find
so I just pasted an image onto the worksheet. With some changes would this work on a picture?