ExcelBanter - command bar name not recognized

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - command bar name not recognized (https://www.excelbanter.com/excel-programming/422254-command-bar-name-not-recognized.html)

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

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

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

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

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

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