Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
excel menubar
Private Sub viewDS()
Application.CommandBars(1).ActionControl.State = msoButtonDown If ActiveWorkbook.Charts("DS SALES$").Visible = xlSheetVisibl Then ActiveWorkbook.Charts("DS SALES$").Visible = xlSheetVeryHidden ActiveWorkbook.Charts("DS MARGIN$").Visible xlSheetVeryHidden ActiveWorkbook.Charts("DS Cumm Sales $").Visible xlSheetVeryHidden ActiveWorkbook.Charts("DS Cumm Marg $").Visible xlSheetVeryHidden Else ActiveWorkbook.Charts("DS SALES$").Visible = xlSheetVisible ActiveWorkbook.Charts("DS MARGIN$").Visible = xlSheetVisible ActiveWorkbook.Charts("DS Cumm Sales $").Visible xlSheetVisible ActiveWorkbook.Charts("DS Cumm Marg $").Visible xlSheetVisible End If End Sub i'm trying to make it so that when the user clicks on the menubar item its state gets set to msoButtonDown or msoButtonUp, but it doesn't sho up in both the excel worksheet and excel shart. anyone know of a way t get it working? It doesn't work if i try the index CommandBars(1 -- Message posted from http://www.ExcelForum.com |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can I change the menubar to look like excel 2003? | New Users to Excel | |||
Excel Menubar text is backwards | Excel Discussion (Misc queries) | |||
Create your own Menubar | Excel Discussion (Misc queries) | |||
Excel Menubar/File Category Lost | Excel Discussion (Misc queries) | |||
menubar problem - excel 2000 | Excel Programming |