VBA with Shapes & textbox events.

[pedie]

Hi, I have textbox and shapes in worksheet, can i make vba run/be activated when the mouse hover over the these object, and can I make different macro run with hovering on different objects? Please help me with the code...

Thanks alot for helping in advance.

 

[pedie]

Bump*, pardon me pls...

 

[diddi]

if they are activeX controls you can use the _mouseover event. not sure about sheet objects tho

 

[pedie]

if they are activeX controls you can use the _mouseover event. not sure about sheet objects tho

Hi Diddi, okay, i'll use activex object. Can you give me a small example how to proceed further?

Thanks
Pedie

 

[diddi]

sorry Pedie, i think i got my languages mixed up. i cant do it in vba without holding a button down on the mouse, which isnt much good. ill have to think about it.

 

[pedie]

i cant do it in vba without holding a button down on the mouse

Not a problem Diddi!, Do you mean only clicking on it only?

 

[Domenic]

For ActiveX controls, have a look at the MouseMove event...

 

[pedie]

Domanic, pls give me some example codes...
Thank you

 

[Domenic]

If you simply want to run a particular code whenever the mouse moves across an ActiveX control, such as a text box, place the following code in the sheet module (or right-click the text box while in Design Mode and select View Code), and try...

[font=Verdana][color=darkblue]Private[/color] [color=darkblue]Sub[/color] TextBox1_MouseMove([color=darkblue]ByVal[/color] Button [color=darkblue]As[/color] [color=darkblue]Integer[/color], [color=darkblue]ByVal[/color] Shift [color=darkblue]As[/color] [color=darkblue]Integer[/color], [color=darkblue]ByVal[/color] X [color=darkblue]As[/color] [color=darkblue]Single[/color], [color=darkblue]ByVal[/color] Y [color=darkblue]As[/color] [color=darkblue]Single[/color])
     Call YourMacro
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]

 

[pedie]

Domanic, thank you soo much...That is what I wanted. That was very good example...


Thanks again.
Happy weekends!