Подскажите как добавить команды из контекстного меню на ленту в настройках ленты необходимые команды не нашел О каких командах идет речь указано на скриншоте во вложении.
Спасибо за ответ и за помощь
Здравствуйте
Подскажите как добавить команды из контекстного меню на ленту в настройках ленты необходимые команды не нашел О каких командах идет речь указано на скриншоте во вложении.
как добавить команды из контекстного меню на ленту
Непохоже, что это возможно штатными средствами. Но как вариант можно попробовать написать макрос на каждую из четырех интересующих команд и затем из этих макросов создать на Ленте новую группу на новой вкладке.
Причем, начать попытки можно вообще с элементарных макросов, воспроизводящих последовательность нажатий кнопок, начиная с комбинации вызова контекстного меню по Shift+F10 и далее подчеркнутыми буковками активизировать нужный пункт. Так, например, команду контекстного меню "Фильтр \ Фильтр по значению выделенной ячейки" можно выполнить с помощью такого макроса: [vba]
Код
Sub Макрос1() SendKeys "+{F10}ФФ", True End Sub
[/vba]
Либо более цивилизованно, не полагаясь на возможные капризы SendKeys, через официальное семейство CommandBars: [vba]
Код
Sub Macro1() Dim popup As CommandBarPopup Set popup = Application.CommandBars("List Range Popup").Controls("&Фильтр") popup.Controls("&Фильтр по значению выделенной ячейки").Execute End Sub
как добавить команды из контекстного меню на ленту
Непохоже, что это возможно штатными средствами. Но как вариант можно попробовать написать макрос на каждую из четырех интересующих команд и затем из этих макросов создать на Ленте новую группу на новой вкладке.
Причем, начать попытки можно вообще с элементарных макросов, воспроизводящих последовательность нажатий кнопок, начиная с комбинации вызова контекстного меню по Shift+F10 и далее подчеркнутыми буковками активизировать нужный пункт. Так, например, команду контекстного меню "Фильтр \ Фильтр по значению выделенной ячейки" можно выполнить с помощью такого макроса: [vba]
Код
Sub Макрос1() SendKeys "+{F10}ФФ", True End Sub
[/vba]
Либо более цивилизованно, не полагаясь на возможные капризы SendKeys, через официальное семейство CommandBars: [vba]
Код
Sub Macro1() Dim popup As CommandBarPopup Set popup = Application.CommandBars("List Range Popup").Controls("&Фильтр") popup.Controls("&Фильтр по значению выделенной ячейки").Execute End Sub