Добрый день. У меня та же проблема, что у . Вот как на картинке в сообщении в самом верху форума (сообщение от 6 Мар 2016 21:26:49).
выполнил рекомендуемый выше код:
Вкладка "Надстройки" появилась, но она пустая. Как были в "Параметрах" в "настройках ленты" не активны "команды меню", "команда панели инструментов", "настраиваемые панели инструментов", так и не активны.
не знаю что делать. мучил поисковик, не нашёл решения. Хотя проблема возникла ещё весной 2016-го. Просто до этого момента не "горело"
выполнил рекомендуемый выше код:
| Код |
|---|
Public Sub testOldBars() Dim pBar As CommandBar Dim pButton As CommandBarButton Set pBar = Application.CommandBars.Add(Name:="Test bar", Temporary:=True) pBar.Visible = True Set pButton = pBar.Controls.Add(Type:=msoControlButton, Temporary:=True) pButton.Caption = "test button" pButton.Visible = True pButton.Style = msoButtonIconAndCaption End Sub |
не знаю что делать. мучил поисковик, не нашёл решения. Хотя проблема возникла ещё весной 2016-го. Просто до этого момента не "горело"
Изменено: - 14.12.2016 00:38:46