Glowing button on Hover

**mountainm** · 06-07-2017, 06:51 AM

I'm trying to create a button that glows when you hover over it.

I also need the button to have no outline.

The method I have used seems to be a tad messy and it isn't the desired result I want. I was wondering if anyone could offer any advice on how to make it better. I have used the MouseMove event on two buttons. There is a small button on top of a larger button. The small button activates the glow property when hovered over and the larger button deactivates it for the region outside. At the moment I have a horrible outline which I dont want.

Please see the attached spreadsheet to see exactly how it works.

To be clear I want to go from this

unhover.jpg

When I'm not hovering over the shape/button

to this

hover.jpg

When I am hovering over the button. And I want to assign a macro to the button that will do something else.

Any advice would be greatly appreciated.

Thanks

**Andy Pope** · 06-08-2017, 04:43 AM

You could try the rollover hyperlink. You would need to have a function to alter glow state which surrounds and covers the button. You may still have the issue of the glow remaining if the mouse is moved too quickly

http://optionexplicitvba.blogspot.co...er-b8-ov1.html

**mountainm** · 06-08-2017, 04:47 AM

Thanks Andy. I also tried this approach but the result wasn't particularly good

**xlnitwit** · 06-08-2017, 05:18 AM

Hi,

It should work better if you avoid selecting the shape. You can also replace the larger button with an empty label and then use

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
'    Debug.Print Button, Shift, X, Y
        With ActiveSheet.Shapes("Rectangle 4").Glow
            .Color.ObjectThemeColor = msoThemeColorAccent3
            .Color.TintAndShade = 0
            .Color.Brightness = 0
            .Transparency = 0.6000000238
            .Radius = 18
        End With

End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
'    Debug.Print Button, Shift, X, Y

    ActiveSheet.Shapes("Rectangle 4").Glow.Radius = 0



End Sub

**mountainm** · 06-08-2017, 05:24 AM

Thanks xlnitwit. I might just make the larger button so large that it is out of the view-able screen as a hacked solution since I dont know how to get rid of the outline of the button.

Thanks again.

**xlnitwit** · 06-08-2017, 05:25 AM

See my edited post- using a label rather than a second button will remove the outline.

**mountainm** · 06-08-2017, 05:27 AM

ah...wonderful. Thanks so much xlnitwit. It also means I can get rid of some code which is always good.

much appreciated

**xlnitwit** · 06-08-2017, 05:40 AM

You're welcome. Please remember to mark the thread Solved using the Thread Tools link at the top.

Glowing button on Hover

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Glowing button on Hover

Re: Glowing button on Hover

Re: Glowing button on Hover

Re: Glowing button on Hover

Re: Glowing button on Hover

Re: Glowing button on Hover

Re: Glowing button on Hover

Re: Glowing button on Hover

Thread Information

Users Browsing this Thread

Similar Threads

Web browsing, remote click a mouse over (hover over) button

Change Macro Button Description for Hover Over

[SOLVED] How to make 'button' change colour when hover over them

Button changes in appearance with a mouse hover

Show tooltip on hover of button (autoshape)

Hover over button and change it's colour

[SOLVED] a button that will hover

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions