Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Invalid procedure call or argument
I've tried at least a dozen variations on creating this command bar, none
of which works: Sub CreateOSIMenubar() Dim vMacNames As Variant Dim vCapNames As Variant Dim vTipText As Variant Dim cbOSI As CommandBar Call RemoveOSIMenubar vMacNames = "OSILogInsertRow" vCapNames = "OSILogInsertRow" vTipText = "Add Row" Set cbOSI = CommandBars.Add With cbOSI .Name = vMacNames <--- Invalid Procedure call or argument .Left = 200 .Top = 200 .Protection = msoBarNoProtection .Visible = True .Position = msoBarTop .Left = CommandBars("FormatDGB").Left + CommandBars("FormatDGB").Width .RowIndex = CommandBars("FormatDGB").RowIndex End With With CommandBars("OSILogInsertRow").Controls.Add(Type:= msoControlButton) .OnAction = "'" & ThisWorkbook.Name & "'!" & "OSILogInsertRow" .Caption = vCapNames .Style = msoButtonCaption .TooltipText = vTipText End With End Sub I've typed in the text string instead of the variable, changed the variable to a string, etc, etc. Does anyone see what's wrong here? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Invalid procedure call or argument
On Mon, 12 Jan 2009 14:38:49 -0700, JE McGimpsey wrote:
Check your RemoveOSIMenubar routine. It's not removing the "OSILogInsertROw" CommandBar. Thanks! In article , salgud wrote: I've tried at least a dozen variations on creating this command bar, none of which works: Sub CreateOSIMenubar() Dim vMacNames As Variant Dim vCapNames As Variant Dim vTipText As Variant Dim cbOSI As CommandBar Call RemoveOSIMenubar vMacNames = "OSILogInsertRow" vCapNames = "OSILogInsertRow" vTipText = "Add Row" Set cbOSI = CommandBars.Add With cbOSI .Name = vMacNames <--- Invalid Procedure call or argument .Left = 200 .Top = 200 .Protection = msoBarNoProtection .Visible = True .Position = msoBarTop .Left = CommandBars("FormatDGB").Left + CommandBars("FormatDGB").Width .RowIndex = CommandBars("FormatDGB").RowIndex End With With CommandBars("OSILogInsertRow").Controls.Add(Type:= msoControlButton) .OnAction = "'" & ThisWorkbook.Name & "'!" & "OSILogInsertRow" .Caption = vCapNames .Style = msoButtonCaption .TooltipText = vTipText End With End Sub I've typed in the text string instead of the variable, changed the variable to a string, etc, etc. Does anyone see what's wrong here? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
CreatePivotTable: Invalid procedure call or argument | Excel Programming | |||
Invalid procedure call or argument | Excel Programming | |||
Invalid Procedure Call Or Argument with VBScript | Excel Programming | |||
Invalid procedure call or argument error | Excel Programming | |||
Invalid Procedure call or argument | Excel Programming |