![]() |
Change Macro button color after clicked
|
Change Macro button color after clicked
I used a shape from the drawing tool barrecorded thisadded msgbox "hi".
Play with it Sub Macro7() ' ' Macro7 Macro ' Macro recorded 11/30/2007 by Donald B. Guillett ' ' MsgBox "hi" ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid ' chg number below Selection.ShapeRange.Fill.ForeColor.SchemeColor = 66 Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.SchemeColor = 66 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Cong Nguyen" wrote in message ... Is there a command to change the Macro button to another color after clicked? Many thanks. -- Cong Nguyen |
Change Macro button color after clicked
Don,
It works. Thank you. -- Cong Nguyen "Cong Nguyen" wrote: Is there a command to change the Macro button to another color after clicked? Many thanks. -- Cong Nguyen |
All times are GMT +1. The time now is 03:09 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com