Identifying Visible Toolbars

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

DCSwearingen - 31 Dec 2005 20:01 GMT

I want to be able to de-select all toolbars for the user of a file and,
when the project is complete, re-select the toolbars they originally
had visible.

I have a routine (at work, unfortunately) that will de-select all
toolbars, but I don't have anything that will set the visible toolbars
back to their original state.

Any quick code for this?

Signature

DCSwearingen

Reply to this Message

Tom Ogilvy - 31 Dec 2005 20:35 GMT

Loop through your list of commandbars (which you made when you made them not
visible) that were visible and set their visible property to true.

Should be almost identical to the code you have.

Signature

regards,
Tom Ogilvy

> I want to be able to de-select all toolbars for the user of a file and,
> when the project is complete, re-select the toolbars they originally
[quoted text clipped - 5 lines]
>
> Any quick code for this?

Reply to this Message

DCSwearingen - 31 Jan 2006 23:33 GMT

Here is the code I came up with. It can probably be trimmed down b
someone more experienced than myself.

Option Base 1
Global myArray(50, 2)

Sub HideToolbars()
Dim myCount As Single, myState As Boolean, i As Integer
For i = 1 To Toolbars.Count
myCount = i
myState = Toolbars(i).Visible
myArray(i, 1) = myCount
myArray(i, 2) = myState
Toolbars(i).Visible = False
Next
End Sub

Sub RestoreToolbars()
Dim i As Integer
For i = 1 To Toolbars.Count
Toolbars(i).Visible = myArray(i, 3)
Next
End Sub

Thanks again to everyone who answers questions posted

--
DCSwearinge

Reply to this Message