M
majikman
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
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