Dan,

I think this is what you want

Sub FloatingButton()
Dim MyBar
Dim MyControl
On Error Resume Next
CommandBars("Custom").Delete
On Error GoTo 0
Set MyBar = CommandBars.Add(Name:="Custom", Position:=msoBarFloating, _
MenuBar:=False, Temporary:=True)
Set MyControl = MyBar.Controls.Add(Type:=msoControlButton)
With MyControl
.Caption = "Cick Me"
.Style = msoButtonIconAndCaption
.Height = 15
.Width = 150
End With
MyBar.Visible = True
End Sub

--

HTH

RP

"Dan Thompson" wrote in message
...
Hi there,
I must apologize for posting in the excel programing news groups as this
vba
code was writen in power point, howver Since it relates to command bar
buttons and forms and stuff I figured that it would be almost the same as
working with command bar buttons and forms in excel. (besides I could not
find a power point "programing" newsgroup)

Anyhow here is my code ....

Sub FloatingButton()
Dim MyBar
Dim MyControl
Set MyBar = CommandBars.Add(Name:="Custom", Position:=msoBarFloating,
MenuBar:=False, Temporary:=True)
Set MyControl = MyBar.Controls.Add(Type:=msoControlButton)
MyControl.Height = 15
MyControl.Width = 150
MyBar.Visible = True
MyControl.Caption = "There Should be Text on my button instead of this
tool
tip ???"
End Sub

The problem I am having is that I want a single floating menu bar with one
button on it exactly the same idea as a regular command button on a form.
except for some stupid reason I can't get text to apear on the button
itself.
And I would like the button on my floating menu bar to say "Click Me", but
the only text I can get to apear is tool tip text.

Any thoughts would be GREATLY appreciated!

Thanks in advance
Dan.