Надстройка Excel — альтернатива ActiveMenuBar.Reset

Предполагая, что целью было переключить значение, которое передается переменной installed, вы могли бы пойти:

If x.Name = "essexcln.xll" Then
    installed = not x.installed
    If installed Then
        ActiveMenuBar.Reset
    End If
    Exit Sub
End If

Желательно, чтобы вы использовали команды Exit с осторожностью или вообще не использовали их — только когда нет возможности выйти из цикла/подпрограммы/если «естественным образом», но я не буду вдаваться в это сейчас, так как сейчас это не имеет значения.

...или еще лучше:

installed = Not ( x.Name = "essexcln.xll" )
If installed Then
    ActiveMenuBar.Reset
End If

...или еще короче:

If Not ( x.Name = "essexcln.xll" ) then ActiveMenuBar.Reset

... так что теперь вся ваша подпрограмма будет:

Sub Toggle_Essbase_AddIn()

    Dim x As AddIn
    Dim installed As Boolean

    For Each x In Application.AddIns
        If Not ( x.Name = "essexcln.xll" ) then ActiveMenuBar.Reset
    Next x

End Sub

... но вы по-прежнему излишне неэффективны.

Нет причин перебирать AddIns. Быстрый просмотр в Google Application.Addins показывает, что проще всего обращаться к надстройке по ее имени.

Я никогда не пользовался Essex, но еще один быстрый Google, чтобы найти документация надстройки говорит мне, что надстройка называется "Oracle Essex".

Поэтому одна строка заменяет всю процедуру:

If Not AddIns("Oracle Essbase").Installed Then ActiveMenuBar.Reset

(или я не уверен, что это должно было НЕ быть NOT, потому что ваш код был неясен) - но это гораздо эффективнее и делает эквивалент вашего кода - если вы уверены, что надстройка действительно существует (не то же самое, что установлено, погуглите), то это делает то же самое, что и вся ваша процедура.

Если вы не уверены, существует ли надстройка, Google снова спасает вас, предоставляя ссылку на Вопрос о переполнении стека.

Поскольку у меня нет надстройки, и вы не включили какой-либо конкретный пример проблемы, я не могу точно сказать, отвечает ли это на вопрос полностью, но уверяю вас, что потребуется некоторое дополнительное время на себя. усердие в кодировании сбережет много усилий для вас и других в конце концов.

Внимание, мне пришлось много написать здесь, чтобы добраться до «одной строчки», поэтому я не могу гарантировать, что не было упущений, но урок здесь больше касается исследования перед кодированием.

Я предлагаю вам изучить документацию о надстройках и панелях инструментов в MSDN, а также документацию по надстройкам сторонних производителей в Oracle ( по ссылкам выше, и подссылкам с этих страниц), и я уверен, что приложив некоторые усилия, ваше решение станет ясным.

Если нет, я предлагаю вам добавить больше информации к вашему вопросу. ...и, пожалуйста, не пытайтесь писать "надстройки для надстроек"!

Удачи (и добро пожаловать в Stack Overflow!)

...и после всего этого я заметил, что вы добавили ссылку на изображение вместо того, чтобы добавить изображение, чтобы оно было более заметным. Я не могу сказать, не щелкнув панель инструментов, но я уверен, что это не команда строки меню. Это группа ленты, и она пуста.