Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Excel Menu
Hi,
I wonder what's wrong in my procedu I want to change the cut, copy and paste menu in my custom menu procedures. I can make it work but I doubt if it always (on every machine) will work. I work with Excel 2000 This works: Application.CommandBars(1).Controls(2).Controls(3) .OnAction = "TB_Cut" Application.CommandBars(1).Controls(2).Controls(4) .OnAction = "TB_Copy" Application.CommandBars(1).Controls(2).Controls(5) .OnAction = "TB_Paste" If the user changes the commandbar, I think the wrong menu-items will be changed, so I changed my procedure without a result (my new procedure is not applied to the menu) Application.CommandBars.FindControl(ID:=21).OnActi on = "TB_Cut" Application.CommandBars.FindControl(ID:=19).OnActi on = "TB_Copy" Application.CommandBars.FindControl(ID:=22).OnActi on = "TB_Paste" I guess the second method is better, but does not the job. Can anyone help? Thanks Jos Vens |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Excel Menu
Jos
It looks to me like the second set is finding a picture on the command bars and setting the action command to the command bar with that picture. Another way to do this (although not very efficient) is to loop through the command bars that are currently in the application, and then when you find the one with the right name and caption you can set the onaction of that node. ie. for x = 1 to application.commandbars.count if application.commandbars(x).name = "THe name you want" for y = 1 to application.commandbars(x).items if application.commandbars(x).ITEM(y).caption = "The caption" then appli....onaction = "the action you want exit for next y next x so you can loop through also a dirty exit condition when you find what you are looking for will save some execution time. But of cource I am sure there is a better way this might just push you in the right direction. Also my code isn't exactly right as I just guessed the names from what I remember Jase -----Original Message----- Hi, I wonder what's wrong in my procedu I want to change the cut, copy and paste menu in my custom menu procedures. I can make it work but I doubt if it always (on every machine) will work. I work with Excel 2000 This works: Application.CommandBars(1).Controls(2).Controls (3).OnAction = "TB_Cut" Application.CommandBars(1).Controls(2).Controls (4).OnAction = "TB_Copy" Application.CommandBars(1).Controls(2).Controls (5).OnAction = "TB_Paste" If the user changes the commandbar, I think the wrong menu-items will be changed, so I changed my procedure without a result (my new procedure is not applied to the menu) Application.CommandBars.FindControl(ID:=21).OnAct ion = "TB_Cut" Application.CommandBars.FindControl(ID:=19).OnAct ion = "TB_Copy" Application.CommandBars.FindControl(ID:=22).OnAct ion = "TB_Paste" I guess the second method is better, but does not the job. Can anyone help? Thanks Jos Vens . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Excel Menu
Hi Jase,
two problems, first: ID is the menu-id, what you think of is faceid which is the picture second: localized versions of excel has other captions than not localized so I can't loop like you do, I only can use the ID which is the unique identifier of a menu(-item) Thanks anyway Jos "Jase" schreef in bericht ... Jos It looks to me like the second set is finding a picture on the command bars and setting the action command to the command bar with that picture. Another way to do this (although not very efficient) is to loop through the command bars that are currently in the application, and then when you find the one with the right name and caption you can set the onaction of that node. ie. for x = 1 to application.commandbars.count if application.commandbars(x).name = "THe name you want" for y = 1 to application.commandbars(x).items if application.commandbars(x).ITEM(y).caption = "The caption" then appli....onaction = "the action you want exit for next y next x so you can loop through also a dirty exit condition when you find what you are looking for will save some execution time. But of cource I am sure there is a better way this might just push you in the right direction. Also my code isn't exactly right as I just guessed the names from what I remember Jase -----Original Message----- Hi, I wonder what's wrong in my procedu I want to change the cut, copy and paste menu in my custom menu procedures. I can make it work but I doubt if it always (on every machine) will work. I work with Excel 2000 This works: Application.CommandBars(1).Controls(2).Controls (3).OnAction = "TB_Cut" Application.CommandBars(1).Controls(2).Controls (4).OnAction = "TB_Copy" Application.CommandBars(1).Controls(2).Controls (5).OnAction = "TB_Paste" If the user changes the commandbar, I think the wrong menu-items will be changed, so I changed my procedure without a result (my new procedure is not applied to the menu) Application.CommandBars.FindControl(ID:=21).OnAct ion = "TB_Cut" Application.CommandBars.FindControl(ID:=19).OnAct ion = "TB_Copy" Application.CommandBars.FindControl(ID:=22).OnAct ion = "TB_Paste" I guess the second method is better, but does not the job. Can anyone help? Thanks Jos Vens . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
change cell contents when pull down menu choices change | Excel Worksheet Functions | |||
How do I change the font size of a pull down menu in MS Excel | Excel Worksheet Functions | |||
excel should let me change the menu than appear when right click | Excel Discussion (Misc queries) | |||
how to change colors in fill menu (Excel) | Excel Discussion (Misc queries) | |||
how do i change the right mouse button menu in excel | Excel Discussion (Misc queries) |