Toggling Toolbar button

[John]

I've written some VBA code to toggle text boundaries in Word, and have
assigned a toolbar button to this. At the moment, the toolbar button
looks the same when text boundaries are on or off. Is there a way to
make the toolbar botton appear to be depressed when I click it to turn
text boundaries on, and to appear as normal when I click it again to
turn text boundaries off? The Bold toolbar button works like this.

 

[Tonya Marshall]

I've written some VBA code to toggle text boundaries in Word, and have
assigned a toolbar button to this. At the moment, the toolbar button
looks the same when text boundaries are on or off. Is there a way to
make the toolbar botton appear to be depressed when I click it to turn
text boundaries on, and to appear as normal when I click it again to
turn text boundaries off? The Bold toolbar button works like this.

I believe Doug Robbins wrote this macro for me:

Sub TextBoundaries()
Dim btn As CommandBarButton
Set btn = CommandBars.ActionControl
If ActiveDocument.ActiveWindow.View.ShowTextBoundaries _
= True Then
ActiveDocument.ActiveWindow.View.ShowTextBoundaries = False
btn.State = msoButtonUp
Else
ActiveDocument.ActiveWindow.View.ShowTextBoundaries = True
btn.State = msoButtonDown
End If
ThisDocument.Saved = True
End Sub

 

[Jon]

Thanks, that works just fine.

I believe Doug Robbins wrote this macro for me:

Sub TextBoundaries()
Dim btn As CommandBarButton
Set btn = CommandBars.ActionControl
If ActiveDocument.ActiveWindow.View.ShowTextBoundaries _
= True Then
ActiveDocument.ActiveWindow.View.ShowTextBoundaries = False
btn.State = msoButtonUp
Else
ActiveDocument.ActiveWindow.View.ShowTextBoundaries = True
btn.State = msoButtonDown
End If
ThisDocument.Saved = True
End Sub