Hi Steve,

Take a look at this tool:

http://www.toolbartoggle.com/

Regards,

Fanfoe


On Mar 11, 9:28*pm, Steve Jacobs
wrote:
I have no idea how to do that, but it sounds like it might be perfect. I'll
look into it.

Thanks for the tip.

-- Steve



"Robert Flanagan" wrote:
Steve, just a thought. *You can create a modeless userform with buttons on
it. *It would look like a toolbar and you could drag and move it around as
needed. *Plus, it would be available in all ribbon tabs. You could even set
it up so that you could shrink or expand it.

Bob

"Steve Jacobs" wrote in message
...
In my workbook_open event, I call a sub contained in a module that creates
a
custom toolbar:

Sub CreateBar()
* * ' This procedure creates a new temporary toolbar.
* *Dim ComBar As CommandBar, ComBarContrl As CommandBarControl
* *On Error GoTo ErrorHandler
* * ' Create a new floating toolbar and make it visible.
* *On Error Resume Next
* * 'Delete the toolbar if it already exists
* *CommandBars("NavBar").Delete
* *Set ComBar = CommandBars.Add(Name:="NavBar", Position:=msoBarFloating,
Temporary:=True)
* *ComBar.Visible = True
* * ' Create a button with text & icon on the bar and set some properties.
* *Set ComBarContrl = ComBar.Controls.Add(Type:=msoControlButton,
Parameter:="GoBackBtn")
* *With ComBarContrl
* * * *.Caption = "Go &Back"
* * * *.Style = msoButtonIconAndCaption
* * * *.TooltipText = "Go back to the previously viewed worksheet"
* * * * 'the onaction line tells the button to run a certain macro
* * * *.OnAction = "btnGoBack"
* * * *.Width = "85"
* * * *.FaceId = 41
* *End With
* *Exit Sub
ErrorHandler:
* *MsgBox "Error " & Err.Number & vbCr & Err.Description
* *Exit Sub
End Sub

I'd like the toolbar to launch 'undocked'. Yet every time I open the
.xlsm,
the toolbar is not only undocked, but it is in the 'Add-Ins'
tab/ribbon/whatever, a location I dont' expect many users to find.

What does the msoBarFloating option do, if not this? And if this is what
it
does, why isn't it working for me?

Thanks,
Steve- Hide quoted text -

- Show quoted text -