XL2003 VBA Add msoControlButton BUG or Feature?

  • Thread starter Thread starter rormeister
  • Start date Start date
R

rormeister

Using VBA I am trying to add a simple button to CommandBars(1). The
result of the code below is the button is created but the Caption is
missing. From the immediate window, the Caption Property contains the
value I assigned in the code, it just refuses to display on the
toolbar. This has worked for me hundreds of times in XL2k. Can you
help?

Sub AddUCXButton()
'
On Error Resume Next
DeleteUCXButton
Dim MenuObject
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Before:=11, _
Type:=msoControlButton, Temporary:=True)

MenuObject.Caption = "&UCX830"
MenuObject.OnAction = "RunAMacro"
End Sub

TIA
Ror
 
Hi Tom,

Thanks for the reply. Yes, it seems that XL2003 requires the style
attribute to be set. XL2000 is more forgiving in that if you don't
specificly imply that the button is an msoButtonCaption, the fact you
set the caption value seems to be enough.

What is puzzling, the code without the Style works for workbooks that
were created in XL2000, but requires Style in new XL2003 worksheets.

Thanks again!
 
Back
Top