Управление документами Word и Excel на VBA - eDrive

28
MsgBox список
End Sub
Sub ЕщеСтрокаМеню ()
Set новоеМеню = CommandBars.Add (Name:="Игры", _
Position:=msoBarFloating, MenuBar:=False, Temporary:=True)
новоеМеню.Visible = True
End Sub
Sub НаполнениеСтрокиМеню ()
Set меню = CommandBars (CommandBars.Count)
Set новыйПункт = меню.Controls.Add (Type:=msoControlPopup)
новыйПункт.Caption = "Информация"
Set подпункт1 = новыйПункт.Controls.Add (Type:=msoControlPopup)
подпункт1.Caption = "О меню"
Set подпункт2 = новыйПункт.Controls.Add (Type:=msoControlPopup)
With подпункт2
.Caption = "О панелях"
.Enabled = True
.OnAction = "процедураИлиМакрос"
End With
End Sub
Sub УдалениеМеню ()
For Each меню In CommandBars
If Not меню.BuiltIn And Not меню.Visible Then меню.Delete
Next
End Sub
Sub ВосстановлениеМеню ()
On Error Resume Next
For i = 1 To CommandBars.Count
CommandBars (i).Reset
Next
End Sub
Панели инструментов
VBA позволяет изменить изображение любой кнопки панели
инструментов с помощью меню Вид .Панели инструментов .Настройка.
При программировании панели инструментов рассматриваются как
разновидности меню.
Примеры
Sub НоваяПанельИнструментов ()
On Error GoTo ошибка
Dim новаяПанель As CommandBar
Set новаяПанель = CommandBars.Add (Name:="Игры", _
Position:=msoBarFloating, MenuBar:=False, Temporary:=True)
With новаяПанель.Controls