Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
command bar name not recognized
I've cobbled together the following code to create a toolbar everytime a
certain spreadsheet opens: Sub CreateOSIMenubar() Dim vMacNames As Variant Dim vCapNames As Variant Dim vTipText As Variant Call RemoveOSIMenubar vMacNames = "OSILogInsertRow" vCapNames = "OSILogInsertRow" vTipText = "Add Row" With Application.CommandBars .Add .Name = vMacNames <----- Compile Error: Method or Data Member not found .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(vMacNames).Controls.Add(Type:=msoContr olButton) .OnAction = "'" & ThisWorkbook.Name & "'!" & vMacNames .Caption = vCapNames .Style = msoButtonCaption .TooltipText = vTipText End With End Sub Doesn't recognize the name variable or something. Any ideas? Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
command bar name not recognized
With Application.CommandBars.Add
.Name = vMacNames 'rest of stuff Gord Dibben MS Excel MVP On Fri, 9 Jan 2009 16:32:43 -0700, salgud wrote: I've cobbled together the following code to create a toolbar everytime a certain spreadsheet opens: Sub CreateOSIMenubar() Dim vMacNames As Variant Dim vCapNames As Variant Dim vTipText As Variant Call RemoveOSIMenubar vMacNames = "OSILogInsertRow" vCapNames = "OSILogInsertRow" vTipText = "Add Row" With Application.CommandBars .Add .Name = vMacNames <----- Compile Error: Method or Data Member not found .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(vMacNames).Controls.Add(Type:=msoContr olButton) .OnAction = "'" & ThisWorkbook.Name & "'!" & vMacNames .Caption = vCapNames .Style = msoButtonCaption .TooltipText = vTipText End With End Sub Doesn't recognize the name variable or something. Any ideas? Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
command bar name not recognized
On Fri, 09 Jan 2009 15:50:59 -0800, Gord Dibben wrote:
With Application.CommandBars.Add .Name = vMacNames 'rest of stuff Thanks for the reply, Gord. When I try that, I get a "Invalid or unqualified reference" error on that same lime. Any ideas? Gord Dibben MS Excel MVP On Fri, 9 Jan 2009 16:32:43 -0700, salgud wrote: I've cobbled together the following code to create a toolbar everytime a certain spreadsheet opens: Sub CreateOSIMenubar() Dim vMacNames As Variant Dim vCapNames As Variant Dim vTipText As Variant Call RemoveOSIMenubar vMacNames = "OSILogInsertRow" vCapNames = "OSILogInsertRow" vTipText = "Add Row" With Application.CommandBars .Add .Name = vMacNames <----- Compile Error: Method or Data Member not found .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(vMacNames).Controls.Add(Type:=msoContr olButton) .OnAction = "'" & ThisWorkbook.Name & "'!" & vMacNames .Caption = vCapNames .Style = msoButtonCaption .TooltipText = vTipText End With End Sub Doesn't recognize the name variable or something. Any ideas? Thanks |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
command bar name not recognized
On Mon, 12 Jan 2009 11:38:42 -0700, salgud wrote:
On Fri, 09 Jan 2009 15:50:59 -0800, Gord Dibben wrote: With Application.CommandBars.Add .Name = vMacNames 'rest of stuff Thanks for the reply, Gord. When I try that, I get a "Invalid or unqualified reference" error on that same lime. Any ideas? My mistake, error message is "Invalid procedure call or reference" Gord Dibben MS Excel MVP On Fri, 9 Jan 2009 16:32:43 -0700, salgud wrote: I've cobbled together the following code to create a toolbar everytime a certain spreadsheet opens: Sub CreateOSIMenubar() Dim vMacNames As Variant Dim vCapNames As Variant Dim vTipText As Variant Call RemoveOSIMenubar vMacNames = "OSILogInsertRow" vCapNames = "OSILogInsertRow" vTipText = "Add Row" With Application.CommandBars .Add .Name = vMacNames <----- Compile Error: Method or Data Member not found .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(vMacNames).Controls.Add(Type:=msoContr olButton) .OnAction = "'" & ThisWorkbook.Name & "'!" & vMacNames .Caption = vCapNames .Style = msoButtonCaption .TooltipText = vTipText End With End Sub Doesn't recognize the name variable or something. Any ideas? Thanks |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
command bar name not recognized
Can you post the removeosimenubar code?
That is probably throwing an error when you try to remove a bar that does not yet exist. With my limited skills I don't see what these two lines do. ..Left = CommandBars("FormatDGB").Left + CommandBars("FormatDGB").Width .RowIndex = CommandBars("FormatDGB").RowIndex Maybe you have to wrap them inside their own With...........End With Gord On Mon, 12 Jan 2009 12:00:31 -0700, salgud wrote: On Mon, 12 Jan 2009 11:38:42 -0700, salgud wrote: On Fri, 09 Jan 2009 15:50:59 -0800, Gord Dibben wrote: With Application.CommandBars.Add .Name = vMacNames 'rest of stuff Thanks for the reply, Gord. When I try that, I get a "Invalid or unqualified reference" error on that same lime. Any ideas? My mistake, error message is "Invalid procedure call or reference" Gord Dibben MS Excel MVP On Fri, 9 Jan 2009 16:32:43 -0700, salgud wrote: I've cobbled together the following code to create a toolbar everytime a certain spreadsheet opens: Sub CreateOSIMenubar() Dim vMacNames As Variant Dim vCapNames As Variant Dim vTipText As Variant Call RemoveOSIMenubar vMacNames = "OSILogInsertRow" vCapNames = "OSILogInsertRow" vTipText = "Add Row" With Application.CommandBars .Add .Name = vMacNames <----- Compile Error: Method or Data Member not found .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(vMacNames).Controls.Add(Type:=msoContr olButton) .OnAction = "'" & ThisWorkbook.Name & "'!" & vMacNames .Caption = vCapNames .Style = msoButtonCaption .TooltipText = vTipText End With End Sub Doesn't recognize the name variable or something. Any ideas? Thanks |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
command bar name not recognized
On Mon, 12 Jan 2009 13:46:44 -0800, Gord Dibben wrote:
Can you post the removeosimenubar code? That is probably throwing an error when you try to remove a bar that does not yet exist. That fixed it! Thanks, Gord. With my limited skills I don't see what these two lines do. .Left = CommandBars("FormatDGB").Left + CommandBars("FormatDGB").Width .RowIndex = CommandBars("FormatDGB").RowIndex Maybe you have to wrap them inside their own With...........End With Gord On Mon, 12 Jan 2009 12:00:31 -0700, salgud wrote: On Mon, 12 Jan 2009 11:38:42 -0700, salgud wrote: On Fri, 09 Jan 2009 15:50:59 -0800, Gord Dibben wrote: With Application.CommandBars.Add .Name = vMacNames 'rest of stuff Thanks for the reply, Gord. When I try that, I get a "Invalid or unqualified reference" error on that same lime. Any ideas? My mistake, error message is "Invalid procedure call or reference" Gord Dibben MS Excel MVP On Fri, 9 Jan 2009 16:32:43 -0700, salgud wrote: I've cobbled together the following code to create a toolbar everytime a certain spreadsheet opens: Sub CreateOSIMenubar() Dim vMacNames As Variant Dim vCapNames As Variant Dim vTipText As Variant Call RemoveOSIMenubar vMacNames = "OSILogInsertRow" vCapNames = "OSILogInsertRow" vTipText = "Add Row" With Application.CommandBars .Add .Name = vMacNames <----- Compile Error: Method or Data Member not found .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(vMacNames).Controls.Add(Type:=msoContr olButton) .OnAction = "'" & ThisWorkbook.Name & "'!" & vMacNames .Caption = vCapNames .Style = msoButtonCaption .TooltipText = vTipText End With End Sub Doesn't recognize the name variable or something. Any ideas? Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
UDF Not recognized | Excel Worksheet Functions | |||
Excel not recognized using "open with" command on text files | Excel Discussion (Misc queries) | |||
One cell isn't recognized? | Excel Discussion (Misc queries) | |||
Add-In not Recognized | Excel Programming | |||
Command not recognized | Excel Worksheet Functions |