How to make toolbar button visible?

[hstijnen]

Hi,
I've hidden a toolbar button manually. Now I want to make it visible with VBA.
I have already som code:
For Each ctl In CommandBars("formatting").Controls
If ctl.caption = strCaption Then
ctl.visible = visible
End If
Next ctl

But it appears the looping is only through visible buttons, so my invisible
button is not found.
What can I do?

Thanks for help,

Henk

 

[Klaus Linke]

Hi Henk,

ctl.visible = True

Better use Option Explicit at the top of the module to avoid such typos.

Greetings,
Klaus

 

[hstijnen]

I'm sorry, Klaus,
That's not the problem. "visible" is a parameter of a function, wherewith I
wuold like to mke the button visible or invisible. The full code is:

Sub SetButtonVisible(caption As String, visible As Boolean)
For Each ctl In CommandBars("formatting").Controls
If ctl.caption = caption Then
ctl.visible = visible
End If
Next ctl
End Sub

The sub works ok for setting a button invisible. But when resetting visible
the button appears not in the collection
For Each ctl In CommandBars("formatting").Controls
So the question is how to get the invisible buttons in the collection.

Greetings,
Henk

 

[Klaus Linke]

So the question is how to get the invisible buttons in the collection.

Shouldn't make a difference whether they are visible or not.
Perhaps single-step, or try to put a
Debug.Print ctl.caption
in the loop to see if all controls are looped?
Or check CommandBars("Formatting").Controls.Count?

Regards,
Klaus