whimsical
01-31-2008, 10:03 AM
Hello All,
I'm really hoping that someone will be able to help with this. I can't find how to do this anywhere!!
What I am trying to do is create a toolbar effect with a number of control buttons that are placed next to each other (very much like a web page header). The toolbar will be used to help users navigate through tabs in an excel report. These command buttons will be duplicated on a number of sheets. What I am trying to do is have the clicked button resize slightly. The idea is that the resized button (whichever button that might be) will give the user feedback about which tab they are on (it will be bigger and therefore stand out).
Therefor what I am trying to do is work out:
A. What code to use to make the selected button increase size, and,
B. When the button executes the macro to go to another sheet, the corresponding button on the new sheet is also resized.
Edit: I know this code for resizing the control button is wrong but I'm not sure what to add:
Private Sub CommandButton2_Click()
Selection.ShapeRange.ScaleHeight 1.09, msoFalse, msoScaleFromBottomRight ' resize control button
Call Macro1 'execute additional macro
End Sub
Would really appreciate any advice
I'm really hoping that someone will be able to help with this. I can't find how to do this anywhere!!
What I am trying to do is create a toolbar effect with a number of control buttons that are placed next to each other (very much like a web page header). The toolbar will be used to help users navigate through tabs in an excel report. These command buttons will be duplicated on a number of sheets. What I am trying to do is have the clicked button resize slightly. The idea is that the resized button (whichever button that might be) will give the user feedback about which tab they are on (it will be bigger and therefore stand out).
Therefor what I am trying to do is work out:
A. What code to use to make the selected button increase size, and,
B. When the button executes the macro to go to another sheet, the corresponding button on the new sheet is also resized.
Edit: I know this code for resizing the control button is wrong but I'm not sure what to add:
Private Sub CommandButton2_Click()
Selection.ShapeRange.ScaleHeight 1.09, msoFalse, msoScaleFromBottomRight ' resize control button
Call Macro1 'execute additional macro
End Sub
Would really appreciate any advice