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
|