Button from Control Box
 

I have a button created from the ControlBox that has in its Caption
properties HIDE.
The Hide Button looks very rich (dark and bold) as is (When I open the
Workbook).
It is working Ok based on the code below.
Only problem is when I click it (Hide) it hides columns DFJ and L and
changes to UNHIDE, but the UNHIDE box now looks anemic, the borders
especially (with the grayed-out look).. What am I missing to have it look
comparable to my HIDE button look?


Private Sub ToggleButton1_Click()
With Range("D:D,F:F,J:J,L:L")
If ToggleButton1.Value = True Then
.EntireColumn.Hidden = True
ToggleButton1.Caption = "Unhide"
Else
.EntireColumn.Hidden = False
ToggleButton1.Caption = "Hide"
End If
End With
End Sub

Button from Control Box
 

That is how it makes it looked depressed. If you don't want that effect,
use a commandbutton.

--
Regards,
Tom Ogilvy


"JMay" wrote in message news:QJMZb.8209$iB.4889@lakeread06...
I have a button created from the ControlBox that has in its Caption
properties HIDE.
The Hide Button looks very rich (dark and bold) as is (When I open the
Workbook).
It is working Ok based on the code below.
Only problem is when I click it (Hide) it hides columns DFJ and L and
changes to UNHIDE, but the UNHIDE box now looks anemic, the borders
especially (with the grayed-out look).. What am I missing to have it look
comparable to my HIDE button look?


Private Sub ToggleButton1_Click()
With Range("D:D,F:F,J:J,L:L")
If ToggleButton1.Value = True Then
.EntireColumn.Hidden = True
ToggleButton1.Caption = "Unhide"
Else
.EntireColumn.Hidden = False
ToggleButton1.Caption = "Hide"
End If
End With
End Sub

Button from Control Box
 

JMay

That's how ToggleButtons are supposed to work. It gives you a visual
identifier of what the value of the ToggleButton is: Normal = True, Anemic =
False.

If you want it to look normal all the time (with only the caption changing),
use a CommandButton instead of a ToggleButton.

Private Sub CommandButton1_Click()

With Me.Range("D:D,F:F,J:J,L:L")
If Me.CommandButton1.Caption = "Hide" Then
.EntireColumn.Hidden = True
Me.CommandButton1.Caption = "Unhide"
Else
.EntireColumn.Hidden = False
Me.CommandButton1.Caption = "Hide"
End If
End With

End Sub

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

"JMay" wrote in message news:QJMZb.8209$iB.4889@lakeread06...
I have a button created from the ControlBox that has in its Caption
properties HIDE.
The Hide Button looks very rich (dark and bold) as is (When I open the
Workbook).
It is working Ok based on the code below.
Only problem is when I click it (Hide) it hides columns DFJ and L and
changes to UNHIDE, but the UNHIDE box now looks anemic, the borders
especially (with the grayed-out look).. What am I missing to have it look
comparable to my HIDE button look?


Private Sub ToggleButton1_Click()
With Range("D:D,F:F,J:J,L:L")
If ToggleButton1.Value = True Then
.EntireColumn.Hidden = True
ToggleButton1.Caption = "Unhide"
Else
.EntireColumn.Hidden = False
ToggleButton1.Caption = "Hide"
End If
End With
End Sub

Button from Control Box
 

Tks Tom and Dick;

"Dick Kusleika" wrote in message
...
JMay

That's how ToggleButtons are supposed to work. It gives you a visual
identifier of what the value of the ToggleButton is: Normal = True, Anemic
=
False.

If you want it to look normal all the time (with only the caption
changing),
use a CommandButton instead of a ToggleButton.

Private Sub CommandButton1_Click()

With Me.Range("D:D,F:F,J:J,L:L")
If Me.CommandButton1.Caption = "Hide" Then
.EntireColumn.Hidden = True
Me.CommandButton1.Caption = "Unhide"
Else
.EntireColumn.Hidden = False
Me.CommandButton1.Caption = "Hide"
End If
End With

End Sub

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

"JMay" wrote in message
news:QJMZb.8209$iB.4889@lakeread06...
I have a button created from the ControlBox that has in its Caption
properties HIDE.
The Hide Button looks very rich (dark and bold) as is (When I open the
Workbook).
It is working Ok based on the code below.
Only problem is when I click it (Hide) it hides columns DFJ and L and
changes to UNHIDE, but the UNHIDE box now looks anemic, the borders
especially (with the grayed-out look).. What am I missing to have it
look
comparable to my HIDE button look?


Private Sub ToggleButton1_Click()
With Range("D:D,F:F,J:J,L:L")
If ToggleButton1.Value = True Then
.EntireColumn.Hidden = True
ToggleButton1.Caption = "Unhide"
Else
.EntireColumn.Hidden = False
ToggleButton1.Caption = "Hide"
End If
End With
End Sub