Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
кнопки в контекстное меню EXCEL 2010
 
#1
13.06.2012 13:25:46
Хочу добавить кнопки "Разгруппировать", и "Группировать" с контекстное меню EXCEL 2010  
Xто такое RibbonX? Помогите, пожалуйста!
 
 
 
#2
13.06.2012 16:52:13
Я успел копирнуть его примерчик:  
Sub ddd()  
  Application.CommandBars("cell").Controls.Add , 3159  
  Application.CommandBars("cell").Controls.Add , 3160  
  Application.CommandBars("row").Controls.Add , 3159  
  Application.CommandBars("row").Controls.Add , 3160  
  Application.CommandBars("column").Controls.Add , 3159  
  Application.CommandBars("column").Controls.Add , 3160  
End Sub  
чтобы попробовать вывести на лист ID всех имеющихся в 2010-ом кОнтролов для будущего использования.
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
 
 
#3
13.06.2012 16:52:40
Sub ffff()  
Application.CommandBars("cell").Controls.Add , 3159  
Application.CommandBars("cell").Controls.Add , 3160  
Application.CommandBars("row").Controls.Add , 3159  
Application.CommandBars("row").Controls.Add , 3160  
Application.CommandBars("column").Controls.Add , 3159  
Application.CommandBars("column").Controls.Add , 3160  
End Sub  
 
добавляет нужные вам команды в контекстное меню ячейки, строки и столбца  
выполните код и посмотрите в контекстной ячейке две нижние команды
 
 
 
#4
13.06.2012 17:01:20
глюк был, сорри
 
 
 
#5
13.06.2012 17:02:28
{quote}{login=Alex_ST}{date=13.06.2012 04:52}{thema=}{post}...Но я успел копирнуть его примерчик:  
...  
чтобы попробовать вывести на лист ID всех имеющихся в 2010-ом кОнтролов для будущего использования.{/post}{/quote}  
 
Alex_ST, может прилагаемый файлик немножко облегчит вам задачу?  
 
там в книге два листа, в листе "xl" в названиях команд наверно сами знаете что означает знак &
 
 
 
#6
13.06.2012 17:15:04
получилось! но команды внизу, а нельзя, чтоб были ввреху, как показано на рисунке
 
 
 
#7
13.06.2012 17:21:02
Б А Х Т И Ё Р,  
спасибо.  
Качну из дома, посмотрю: "лиса" на работе заглючила и открывает .xlsx внутри себя как текстовой файл :)  
Но я пока сделал так:  
Sub test()  
  Dim rCell As Range  
  Set rCell = [A1]
  Dim cBar As CommandBar  
  Dim ctrl As CommandBarControl  
  rCell = "CommandBar.Index": rCell.Offset(, 1) = "CommandBar.Name": rCell.Offset(, 2) = "Control.ID": rCell.Offset(, 3) = "Control.Caption"  
  Set rCell = rCell.Offset(1, 0)  
  For Each cBar In Application.CommandBars  
     rCell = cBar.Index: rCell.Offset(, 1) = cBar.Name  
     Set rCell = rCell.Offset(1, 0)  
     For Each ctrl In cBar.Controls  
         rCell.Offset(, 2) = ctrl.ID: rCell.Offset(, 3) = ctrl.Caption  
        Set rCell = rCell.Offset(1, 0)  
     Next ctrl  
  Next cBar  
End Sub
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
 
 
#8
13.06.2012 17:34:20
{quote}{login=nn}{date=13.06.2012 05:15}{thema=}{post}...нельзя ли, чтоб были вверху, как показано на рисунке{/post}{/quote}  
 
вот это - Application.CommandBars("cell").Reset - даёт контекстному меню вид по умолчанию (заводские настройки)  
 
а вот это - Application.CommandBars("cell").Controls.Add , 3, , 1 - добавляет команду "Сохранить" в 1-строку контекстного меню  
так как ID команды "Сохранить" = 3, а 1 означает добавь нужную команду до 1-й команды  
 
Alex_ST - вот нужный вам файл в нужном вам формате
 
 
 
#9
13.06.2012 17:46:36
Значит не реально сделать в малекньком контекстном меню доп.кнопки?  
как показано на рисунке во вложении.
 
 
 
#10
13.06.2012 18:02:59
е знаю - не знаю...  
может путаю, но кажется у Уокенбаха написано чё-то типа MiniZapToolbar - наверно копать надо в этом направлении (могу и ошибиться)  
 
Вопрос - Если не секрет, а зачем кнопки нужны именно внутри этой мини панели?  
Чем не устроит мой второй вариант (когда нужные команды добавились вверху контекстного меню ячейки)?  
 
ВЕДЬ:  
1) мини-панель в›ходит только тогда когда кликаешь мышь, а контекстное меню выходит и по мышке и по клаве, которая стоит слева правого CTRL  
 
2) мини-панель не имеет хоткейов, а контекстное меню имеет, то есть имеется возможность выполнять команды нажатием двух клавиш (не трогая мышь)?
 
 
 
#11
13.06.2012 19:44:34
Shift+F10 выводит контекстное меню.  
 
Все классно получилось ввреху и внизу контекстного меню.  
 
согласен по мини панели, просто принципиально было интересно, способен ли на это EXCEL 2010!
 
 
 
#12
13.06.2012 20:47:39
К стати, по поводу & в подписях к кОнтролам: когда-то заинтересовался, понял, но не воспользовался на практике ни разу. Забыл совсем зачем они там.  
Не напомните?
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
 
 
#13
14.06.2012 09:09:06
перед какой буквой стоит амперсанд(&), эта буква - хоткей для этой команды.  
если посмотреть на лист "xl" моего файла, то понятно, что:  
Для команды "СОХРАНИТЬ" - хоткей "С", так как & стоит перед этой буквой.  
Допустим, вы добавили эту команду в контекстное меню, теперь нажав клавиши [MENU]+[C] можно выполнить сохранение книги.
Клавиша [MENU] расположена слева правого CTRL.
 
nn - вместо Shift+F10 можно использовать клавишу [MENU] так легче :-)
 
 
 
#14
14.06.2012 10:20:08
Спасибо за напоминание про назначение амперсанта (&).  
Теперь понятно, почему я об этом прочитал и успешно забыл за ненадобностью: хоткеями, назначенными на кнопку [MENU], я не пользуюсь НИКОГДА (сейчас глянул на сбоку клаву - кнопка [MENU]одна из нескольких самых не затоптанных пальцами и пыльных)
Я всё больше по-старинке: Ctrl, Alt, Shift в разных комбинациях с буквами и цифрами, да при этом ещё и в основном только те, которые можно набрать "одной левой" чтобы мышку из правой не выпускать.  
 
Shift+F10 я так же не использую - предпочитаю ПКМ
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
 
 
#15
14.06.2012 22:18:03
{quote}{login=nn}{date=13.06.2012 01:25}{thema=кнопки в контекстное меню EXCEL 2010}{post}Хочу добавить кнопки "Разгруппировать", и "Группировать" с контекстное меню EXCEL 2010  
Xто такое RibbonX? Помогите, пожалуйста!{/post}{/quote}  
Возможно Вам поможет: параметры - настройка ленты - макросы  
2010
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
#16
14.06.2012 22:25:27
Богдан, при чём здесь КОНТЕКСТНОЕ меню?!
 
 
 
#17
14.06.2012 22:27:55
т.к. другого варианта нет, решил предложить хоть что-то  
альтернатива :)
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
#18
14.06.2012 22:42:18
с первой попытки не получилось отправить, может со второй получится. возможно поможет надстройка для редактирования контекстного меню
 
 
 
#19
15.06.2012 09:13:18
Насколько я понял, автор научился добавить команды в контекстное меню, но он изначально хотел добавить команды в мини-панель, которая появляется над контекстным меню при клике правой кнопкой мышки над ячейкой/строкой/столбцом  
 
если кто знает подскажите плиз
 
 
 
Страницы: 1
Наверх