Меню правой кнопки мышки в Экселе.
Добавлено: 30 мар 2005, 15:31
Есть ли возможность отредактировать менюшку (добавить новые позиции и поменять местами), вызываемую правым кликом мышки на ячейках в Экселе?
Код: Выделить всё
Sub Sozdanie()
Dim i As Long, bt As CommandBarControl
i = 1
For Each bt In Application.CommandBars("Cell").Controls
bt.Visible = False
Next
Set bt = Application.CommandBars("Cell").Controls.Add
With bt
.Caption = "Сбросить настойки меню"
.OnAction = "Rezet"
End With
End Sub
Sub Rezet()
Application.CommandBars("Cell").Reset
End SubВообще список имён Popup меню можно получить:
Код: Выделить всё
Dim cm As CommandBar, i As Long
For Each cm In Application.CommandBars
If cm.Position = msoBarPopup Then
i = i + 1
Cells(i, 1) = cm.Name
End If
Next