View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default XL2003 VBA Add msoControlButton BUG or Feature?

What is the style setting for the button? Does it include showing the
caption?

--
Regards,
Tom Ogilvy

"rormeister" wrote in message
m...
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(Befo=11, _
Type:=msoControlButton, Temporary:=True)

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

TIA
Ror