A
aiyer
Hi all!
Thanks alot Bob and I tried the following as suggsted, to have a chec
mark alongside to indicate it button state.
I,.e, I developed a Vtec menu with sub menus within it and the submenu
were linked to toolbars to which macros are assigned to.
I have assigned macros to toolbars. In one of those macros, I added th
following assuming that the selected toolbar will be highlighted. Fo
eg, one of the toolbars named as 'static' connected to sub-men
'Analysis type' from the 'Vtec ' main menu will have to be highlighte
when the user clicks the same.
==========================================
With Application.CommandBars.ActionControl
If .State = msoButtonUp Then
ActiveWorkbook.Worksheets(.Caption).Visible = xlSheetHidden
.State = msoButtonDown
Else
ActiveWorkbook.Worksheets(.Caption).Visible = xlSheetVisible
.State = msoButtonUp
End If
End With
===========================================
But am getting an error message that says 'subscript error' and in th
debugging mode, I could see that the error was happening at th
following line:
"ActiveWorkbook.Worksheets(.Caption).Visible = xlSheetHidden
.State = msoButtonDown"
I would appreciate your help guys.
Thanks a lot,
Arun.
Vtec corp
Thanks alot Bob and I tried the following as suggsted, to have a chec
mark alongside to indicate it button state.
I,.e, I developed a Vtec menu with sub menus within it and the submenu
were linked to toolbars to which macros are assigned to.
I have assigned macros to toolbars. In one of those macros, I added th
following assuming that the selected toolbar will be highlighted. Fo
eg, one of the toolbars named as 'static' connected to sub-men
'Analysis type' from the 'Vtec ' main menu will have to be highlighte
when the user clicks the same.
==========================================
With Application.CommandBars.ActionControl
If .State = msoButtonUp Then
ActiveWorkbook.Worksheets(.Caption).Visible = xlSheetHidden
.State = msoButtonDown
Else
ActiveWorkbook.Worksheets(.Caption).Visible = xlSheetVisible
.State = msoButtonUp
End If
End With
===========================================
But am getting an error message that says 'subscript error' and in th
debugging mode, I could see that the error was happening at th
following line:
"ActiveWorkbook.Worksheets(.Caption).Visible = xlSheetHidden
.State = msoButtonDown"
I would appreciate your help guys.
Thanks a lot,
Arun.
Vtec corp