Как да свържете макрос към контекстното меню
Искате ли да свържете един от вашите макроси с нова команда в контекстното меню? Това прави потребителите особено лесни за извикване на макроса: Просто кликнете върху клетка с десния бутон на мишката и контекстното меню е достъпно, както показва следната фигура:
Вече ще видите нова команда в контекстното меню на фигурата. Нарича се „Моят нов ред“. Използвайте следния програмен код, за да интегрирате новия запис:
Sub ContextMenuErwiden ()
С Application.CommandBars ("Cell"). Controls.Add
.Caption = "Моята нова команда"
.OnAction = "Макрос"
Край с
End Sub
В присвояването на стойността на свойството OnAction въведете името на вашия макрос, който трябва да бъде свързан с новия елемент от менюто.
За да премахнете новия запис от контекстното меню, използвайте следния програмен код:
ПодконтекстMenuLoeschen ()
Application.CommandBars ("Cell"). Контроли (Application.CommandBars ("Cell"). Controls.Count) .Delete
End Sub
Макросът премахва последния запис от контекстното меню. Тъй като новият запис е добавен тук предварително, макросът изтрива този запис от контекстното меню.