Скрытие и отображение панелей инструментов
В данном разделе мы научимся быстро управлять отображением всех используемых в Excel 2007 панелей инструментов.
Внимание!
Для успешной реализации данного примера в текущей рабочей книге должен находиться лист Лист1. В противном случае необходимо внести соответствующие изменения в приведенный ниже код.
В стандартном модуле редактора VBA напишем следующий код (листинг 3.91).
Листинг 3.91. Управление отображением панелей инструментов
Sub HidePanels()
Dim cbrBar As CommandBar
Dim intRow As Integer ' Номер текущей строки листа
' Отключение обновления экрана
Application.ScreenUpdating = False
' Подготовка к сохранению
Cells.Clear
' Скрытие видимых панелей и сохранение их названий
intRow = 1 ' Запись имен с первой строки
For Each cbrBar In CommandBars
If cbrBar.Type = msoBarTypeNormal Then
If cbrBar.Visible Then
cbrBar.Visible = False
Cells(intRow, 1) = cbrBar.Name
intRow = intRow + 1
End If
End If
Next
' Включение обновления экрана
Application.ScreenUpdating = True
End Sub
Sub ShowPanels()
Dim cell As Range ' Текущая ячейка листа
' Отключение обновления экрана
Application.ScreenUpdating = False
' Отображение скрытых панелей
On Error Resume Next
For Each cell In Range(«A:A»).SpecialCells( _
xlCellTypeConstants)
CommandBars(cell.Value).Visible = True
Next cell
' Включение обновления экрана
Application.ScreenUpdating = True
End Sub
После написания кода в окне выбора макросов появятся два макроса: Hide Panel s и ShowPanels. При выполнении первого макроса все используемые панели инструментов будут скрыты, а при выполнении второго они восстановятся на прежних местах. На рабочем листе Лист1 будет храниться перечень скрытых панелей. Для удобства работы можно назначить обоим макросам кнопки и поместить их на рабочий лист (но не на какую-нибудь панель инструментов).