Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > command bar name not recognized
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 219
Default 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
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 22,906
Default 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

Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 219
Default 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
Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 219
Default 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
Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 22,906
Default 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

Reply With QuoteReply With Quote
  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 219
Default 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 With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
UDF Not recognized Rookie_User Excel Worksheet Functions 3 January 29th 10 10:16 PM
Excel not recognized using "open with" command on text files mrwawa Excel Discussion (Misc queries) 1 March 30th 09 05:17 PM
One cell isn't recognized? LiveUser Excel Discussion (Misc queries) 2 February 14th 08 09:07 PM
Add-In not Recognized naive14 Excel Programming 2 May 11th 07 09:10 PM
Command not recognized WLMPilot Excel Worksheet Functions 2 April 29th 05 04:08 PM


All times are GMT +1. The time now is 03:04 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement