Text Hover over Image

[GoKu]

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?

 

[Jon von der Heyden]

Hello GoKu

Pictures don't have a MouseMove event, but labels do.

Create a new ActiveX label from the Control Toolbox, and place it over the picture (make it a good fit).

Next in properties change its' BackStyle to transparent.

We will assume the label is called Label1.

Attach the following code to it:

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim dblTop As Double
    Dim dblLeft As Double
 
    With Me.Label1
        dblTop = .Top + .Height
        dblLeft = .Left + .Width
    End With
 
    With Me.Shapes.AddCallout(msoCalloutOne, dblLeft, dblTop, 100, 30)
        .Visible = msoTrue
        With .TextFrame
            .Characters.Text = "Yo ho ho and a bottle of rum!"
            .HorizontalAlignment = xlHAlignCenter
            .VerticalAlignment = xlVAlignCenter
        End With
        Application.Wait Now + TimeSerial(0, 0, 1)
        .Delete
    End With
End Sub

 

[Ishalez]

Rather than asking again, as this is what I want to do, I thought I'd post here.

This is what I wish to do.
I've created a picture, which runs a macro when you click on the picture. But, when the mouse "hovers" but has not been clicked over the picture, I get a floating "pop up" text, to tell the user what the picture/button does before they click it.

The above answer, sounds exactly the answer, but despite making the label and using the code above, when I hover the mouse over the label, nothing seems to happen.
As I only "semi know what I'm doing here" Can anyone please suggest a basic error I may be making in getting this to work?

I know it's asking a lot, but I don't know what I'm doing wrong!

Thank you

 

[codingrulz]

Add a link to the shape, select "place in this document", reference any cell and enter the text you wish to see when hovering in the screen tip section.