Depressed toggle button

[Drake]

Hey everyone -

okay, except for the fact that the button needs therapy....

I need help with a custom button - I want it to show as depressed when it is
True. Here is my current code. What should I add and where?

Thanks!

--------
Public Sub Show_Hide()
If ActiveDocument.ActiveWindow.View.ShowHiddenText = True Then
ActiveDocument.ActiveWindow.View.ShowHiddenText = False
ElseIf ActiveDocument.ActiveWindow.View.ShowHiddenText = False Then
ActiveDocument.ActiveWindow.View.ShowHiddenText = True
ActiveDocument.ActiveWindow.View.ShowAll = False
End If
End Sub

 

[Klaus Linke]

okay, except for the fact that the button needs therapy....


Hi Drake,

Here's what the doctor orders:

Dim myCBB As CommandBarButton
Set myCBB = CommandBars.ActionControl
With ActiveDocument.ActiveWindow.View
.ShowHiddenText = Not(.ShowHiddenText)
myCBB.State = Not (myCBB.State)
.ShowAll = False
End with

Regards,
Klaus

 

[Klaus Linke]

On second thought, you don't really know which state you're starting with
(hidden text displayed, or not).
So you better keep your original "If ...", and set "myCBB.State =
msoButtonDown"/"myCBB.State = msoButtonUp" as desired.

Klaus

 

[Jezebel]

First, you can replace all of this

If ActiveDocument.ActiveWindow.View.ShowHiddenText = True Then
ActiveDocument.ActiveWindow.View.ShowHiddenText = False
ElseIf ActiveDocument.ActiveWindow.View.ShowHiddenText = False Then
ActiveDocument.ActiveWindow.View.ShowHiddenText = True

with...

With ActiveDocument.ActiveWindow.View
.ShowHiddenText = not .ShowHiddenText
end with

What you haven't explained is where this button is located... on a toolbar?
on a form? on a UserForm?

 

[Drake]

Hi Jezebel -

the button is on a toolbar. Sorry - thought I had said that.

 

[Drake]

Perfect Klaus! Thanks!