Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
.OnAction with arguments
Hi,
I'm using VB 6.3 with Excel 2000 in Win2000. I am trying to create menu items that call procedures in modules. The procedures have arguments, for example Sub DoSomeThing(Arg1 As String, Arg2 As Boolean) When creating the menu item, I have a pretty arcane attempt... Set SubMenuItem = MenuItem.Controls.Add _ (Type:=msoControlButton) With SubMenuItem .Caption = "Process File" .Tag = "blah" '.OnAction = "'Module1.DoSomeThing """ & .Tag & """ False'" End With (picked this up from newsgroup but don't quite get it) The message back is The macro "C:\temp\ThisFile.xls'!'Module1.DoSomeThing "blah" False" cannot be found. Any ideas? Thanks in advance, Max |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
.OnAction with arguments
Max,
The argument values must be separated a comma: .OnAction = "'Module1.DoSomeThing """ & .Tag & """, False'" -- John Green - Excel MVP Sydney Australia "max" wrote in message om... Hi, I'm using VB 6.3 with Excel 2000 in Win2000. I am trying to create menu items that call procedures in modules. The procedures have arguments, for example Sub DoSomeThing(Arg1 As String, Arg2 As Boolean) When creating the menu item, I have a pretty arcane attempt... Set SubMenuItem = MenuItem.Controls.Add _ (Type:=msoControlButton) With SubMenuItem .Caption = "Process File" .Tag = "blah" '.OnAction = "'Module1.DoSomeThing """ & .Tag & """ False'" End With (picked this up from newsgroup but don't quite get it) The message back is The macro "C:\temp\ThisFile.xls'!'Module1.DoSomeThing "blah" False" cannot be found. Any ideas? Thanks in advance, Max |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
.OnAction with arguments
John and JE,
Thanks for your replies. I finally got it to work. John - I tried the comma and it didn't work on my machine (but strangely, it did work on someone else's). JE - I couldn't find ActiveControl documented anywhere (and the code bombed on it). What did work was Application.CommandBars.ActionControl.Tag and Application.CommandBars.ActionControl.Parameter Thanks for the help, Max |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
.OnAction with arguments
thanks for the correction - that's what happens when I fail to test my
memory (doesn't happen often - I test most everything). In article , (max) wrote: JE - I couldn't find ActiveControl documented anywhere (and the code bombed on it). What did work was Application.CommandBars.ActionControl.Tag and Application.CommandBars.ActionControl.Parameter Thanks for the help, |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro - onAction arguments | Excel Worksheet Functions | |||
How do you add arguments to an OnAction event? | Excel Programming | |||
OnAction | Excel Programming | |||
.OnAction - Multiple Calls | Excel Programming | |||
OnAction | Excel Programming |