Отсутствует панель формата Excel

Некоторое время назад я открыл старый файл Excel с макросом. Затем я потерял многие функции Excel, такие как контекстные меню, панель списков полей сводной таблицы и т. Д. Я решил многие из них с помощью кодов VBA, но пока не смог решить эту проблему:

Я не могу открыть панели формата графика (те, которые появляются справа, когда вы щелкаете правой кнопкой мыши элемент диаграммы "xxx" и выбираете формат "xxx"...).

Я уже пробовал варианты Excel и не нашел там решения. Кроме того, в моем предыдущем исследовании по возвращению контекстных меню я нашел решение с использованием кодов vba. Поэтому, я думаю, у этого будет похожее решение. Проблема в том, что я не смог найти правильный класс, метод или функцию vba для решения этой проблемы.

Заранее спасибо.

Источник

2 ответа

Решение

Я наконец-то решил это.

Во-первых, я перечислил все имена CommandBars на листе, используя код ниже:

Dim i As Integer
Dim bar As CommandBar
i = 0

For Each bar In Application.CommandBars
  i = i + 1
  Sheets("Sheet1").Cells(i, 1) = bar.Name    
Next

В этом не было необходимости, я просто хотел узнать имена CommandBars.

После некоторых проб и ошибок я обнаружил, что код ниже выполняет свою работу:

Application.CommandBars("Format Object").Enabled = True

Код из предыдущего ответа

Application.CommandBars(140).Enabled=True

вероятно, делает то же самое, но я не мог заставить его работать.

Источник

Это должно вам помочь: Кредиты Майклу Фаулеру от Expert Exchange Вот ссылка

Sub ShowAllToolbars()
       'loop variable
       Dim i As Integer

       ' Loop through the total number of toolbars.
       For i = 1 To Application.Toolbars.Count

           ' Show each toolbar.
           Application.Toolbars(i).Visible = True
Application.CommandBars(140).Enabled=True
       ' End of loop.
       Next i

   End Sub
Источник
Другие вопросы по тегам