FootBallBat
Board Regular
- Joined
- Jan 26, 2012
- Messages
- 169
I'm creating a score keeping spreadsheet for game night.
I have 2 images below. What I am looking for is: I want to be able to click an image (card) and it adds a glow, then when you click it again the glow disappears.
I know how to assign a macro to an image but do not know how to do an "if" statement so that if it has a glow it removes it when clicked.
P.S. If this is to complex I am willing to change it, I mainly just want a way to click on the cards you have in your hand and they highlight in a way that is easy to see (like if your grandparents were looking at it lol)
Here is the macro I asigned for the glow to be added:
Sub Change_Color()
ActiveSheet.Shapes.Range(Array("Picture 117")).Select
With Selection.ShapeRange.Glow
.Color.RGB = RGB(0, 176, 240)
.Transparency = 0
.Radius = 10
End With
End Sub
https://drive.google.com/open?id=1uCN5qzzNzlww4iHwyhrE7ihGlAKlA5Xr
https://drive.google.com/open?id=1-SSNNgBa-8k9hl5j2_3DEOFqwsMWpcMt
I have 2 images below. What I am looking for is: I want to be able to click an image (card) and it adds a glow, then when you click it again the glow disappears.
I know how to assign a macro to an image but do not know how to do an "if" statement so that if it has a glow it removes it when clicked.
P.S. If this is to complex I am willing to change it, I mainly just want a way to click on the cards you have in your hand and they highlight in a way that is easy to see (like if your grandparents were looking at it lol)
Here is the macro I asigned for the glow to be added:
Sub Change_Color()
ActiveSheet.Shapes.Range(Array("Picture 117")).Select
With Selection.ShapeRange.Glow
.Color.RGB = RGB(0, 176, 240)
.Transparency = 0
.Radius = 10
End With
End Sub
https://drive.google.com/open?id=1uCN5qzzNzlww4iHwyhrE7ihGlAKlA5Xr
https://drive.google.com/open?id=1-SSNNgBa-8k9hl5j2_3DEOFqwsMWpcMt