РЮАКХЖЮ"
рЮАКХЖЮ"
End With
'
' Вторая кнопка
'
With .Add(Type:=msoControlButton, Id:=3)
.TooltipText = "Сохранить"
.OnAction = "Модуль!.Запись"
End With
With .Add(Type:=msoControlButton, Id:=1175)
.TooltipText = "Сохранить как"
.OnAction = "Модуль1.СохранитьКак"
End With
End With
End With
With Application.CommandBars.Add(Name:="МоеМеню", MenuBar:=True, Temporary:=True)
.Visible = True
With .Controls
'
' Создание строки меню Файл
With .Add(Type:=msoControlPopup)
.Caption = "&Файл" With .Controls
With .Add(Type:=msoControlButton)
.Caption = "Сохранить"
.OnAction = "Модуль1.Запись"
End With
With .Add(Type:=msoControlButton)
.Caption = "Сохранить как"
.OnAction = "Модуль1.СохранитьКак"
End With
With .Add(Type:=msoControlButton)
.Caption = "Закрыть"
.OnAction = "Модуль1.Закрыть"
End With
End With
End With
End With
End With
End Sub
'
Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
'
' Процедура, отображающая панели инструментов Форматирование
' и Стандартная при закрытии приложения
' Кроме того, она устанавливает заголовок окна приложения, используемые
' по умолчанию
'
With Application
.CommandBars("Formatting").Visible = True
.CoiranandBars("Standard").Visible = True
.Caption = Empty
End With
End Sub
Ранее при описании модуль1 были указаны переменные уровня проекта, теперь рассмотрим несколько его процедур.
| Модуль Модуль1 |
|
||
