Здравствуйте Вдовинов А.И., Вы писали:
ВА>На второй вопрос:
ВА>Нужно объявить переменную mybar.
ВА>ВА> Dim mybar as CommandBar
ВА>
ВА> 
Объявил, запускаю, не работает. Сейчас моя процедура выглядит вот так.
Private Sub Ex3()
Dim mybar As CommandBar
Set mybar = CommandBars _
.Add(Name:="Custom", Position:=msoBarTop, _
Temporary:=True)
With mybar
.Controls.Add Type:=msoControlButton, ID:= _
CommandBars("Edit").Controls("Paste").ID
.Visible = True
End With
End Sub
результат тот же самый.
А про востановление меню — большое спасибо, все востановилось.
