| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How can i Create
Hi all,
I would like to add some menu Item based on the following code but it returns failed. The reason is that i pass an parameter on "OnAction" which excel file cannot find the macroname RunTest(1) Here is my code ========================================== MenuBars(xlWorksheet).Menus(menuName).MenuItems.Ad d Caption:=itemName, OnAction:=RunTest(1) Public Sub RunTest(ByVal iParameter as integer) Msgbox(iParameter) End Sub =================================== What can i do? Regards, Norotn |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How can i Create
Hi,
.OnAction:= "RunTest(1)" -- Regards, Soo Cheon Jheong "Norton" wrote in message ... Hi all, I would like to add some menu Item based on the following code but it returns failed. The reason is that i pass an parameter on "OnAction" which excel file cannot find the macroname RunTest(1) Here is my code ========================================== MenuBars(xlWorksheet).Menus(menuName).MenuItems.Ad d Caption:=itemName, OnAction:=RunTest(1) Public Sub RunTest(ByVal iParameter as integer) Msgbox(iParameter) End Sub =================================== What can i do? Regards, Norotn |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How can i Create
Hello Norton
Since your macro takes a parameter, OnAction will not accept it as it is. So provided Runtest will always take 1 on its parameter for the Onaction method,I would suggest you create another macro to run your Runtest macro and use this new macro name instead. HTH Cordially Pascal "Norton" a écrit dans le message de ... Hi all, I would like to add some menu Item based on the following code but it returns failed. The reason is that i pass an parameter on "OnAction" which excel file cannot find the macroname RunTest(1) Here is my code ========================================== MenuBars(xlWorksheet).Menus(menuName).MenuItems.Ad d Caption:=itemName, OnAction:=RunTest(1) Public Sub RunTest(ByVal iParameter as integer) Msgbox(iParameter) End Sub =================================== What can i do? Regards, Norotn |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How can i Create
Thx for your advise!
"Norton" wrote in message ... Hi all, I would like to add some menu Item based on the following code but it returns failed. The reason is that i pass an parameter on "OnAction" which excel file cannot find the macroname RunTest(1) Here is my code ========================================== MenuBars(xlWorksheet).Menus(menuName).MenuItems.Ad d Caption:=itemName, OnAction:=RunTest(1) Public Sub RunTest(ByVal iParameter as integer) Msgbox(iParameter) End Sub =================================== What can i do? Regards, Norotn |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Create a macro to create excel line graph with coloured pointers anddata lables | Charts and Charting in Excel | |||
| How to create adress list so can mail merge and create labels? | Excel Discussion (Misc queries) | |||
| How to create a form to insert a hyerlink.VBA code to create a for | Excel Discussion (Misc queries) | |||
| Create dictionary of terms, create first time user site | New Users to Excel | |||
| need to create a formula to create a timesheet but haven't a clue | Excel Discussion (Misc queries) | |||
Linear Mode
