Custom Toolbar

[MarkAndrews]

I've seen this done before - haven't got a clue how tho

Basically, to the left of the up & down page navigation, a custom toolbar (permanently fixed) which has a number of custom macro buttons, which only appear when a specific document is opened

Any idea's how to do it?

TIA

 

[DominicB]

Hi Mark

What do you want to call it?

DominicB

 

[MarkAndrews]

Hi Mark

What do you want to call it?

DominicB

Can I not just overtype "Marks Toolbar"??

Thats what i tried and it wont have it?

 

[DominicB]

Hi Mark

Sorry mate - really don't know what you mean. I've tried it with no problem. You are changing all instances of "Marks Toolbar" in the code aren't you...?

Sub Test()

Application.ScreenUpdating = False
Application.StatusBar = "Designed By Mark Andrews"
ActiveWorkbook.Save
ActiveWorkbook.RefreshAll
On Error Resume Next
Application.CommandBars("Floccinaucinihilipilification").Delete
On Error GoTo 0
Set TB = Application.CommandBars.Add(Name:="Floccinaucinihilipilification")
Set Btn = TB.Controls.Add(Type:=msoControlButton)
With Btn
.FaceId = 71
.TooltipText = "Marks Button1"
.OnAction = "MarksMacro1"
End With
Set Btn = TB.Controls.Add(Type:=msoControlButton)
With Btn
.FaceId = 72
.TooltipText = "Marks Button1"
.OnAction = "MarksMacro2"
End With
With Application.CommandBars("Floccinaucinihilipilification")
.Visible = True
Application.ScreenUpdating = True
End With
End Sub

HTH

DominicB

EDIT : Not sure if there's any disallowed characters in a toolbar name(???)

 

[MarkAndrews]

Yup, altering all of em

Will give it another try......

Still confused with the anchoring

Is it poss to add another button in too?

TIA

 

[MarkAndrews]

No like?

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Application.StatusBar = "Designed By Mark Andrews"
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
On Error Resume Next
Application.CommandBars("Options").Delete
On Error GoTo 0
Set TB = Application.CommandBars.Add(Name:="Options")
Set Btn = TB.Controls.Add(Type:=msoControlButton)
With Btn
.FaceId = 71
.TooltipText = "Marks Button1"
.OnAction = "MarksMacro1"
End With
Set Btn = TB.Controls.Add(Type:=msoControlButton)
With Btn
.FaceId = 72
.TooltipText = "Marks Button1"
.OnAction = "MarksMacro2"
End With
With Application.CommandBars("Options")
.Visible = True
Application.ScreenUpdating = True
End With
End Sub

 

[DominicB]

Hi Mark

The problem is the word "Options". You menu bar "File | Edit etc" is really a toolbar in disguise. And it already has an "Options" under the tools menu. Use another name (even adding say an "-" to the end of options will allow it to be used, try adding a space - "Options ").

For more buttons, add this code each time to add more buttons :

Set Btn = TB.Controls.Add(Type:=msoControlButton)
With Btn
.FaceId = 72
.TooltipText = "Marks Button3"
.OnAction = "MarksMacro3"
End With

Just remember to change the target macro (OnAction) and the icon picture (FaceID). You're going to ask me about these next aren't you?

HTH

DominicB

 

[MarkAndrews]

Dominic - WTH....?

Will rename to something else, thanks mate

 

[MarkAndrews]

How do i change the buttons from 1,2,3,4 etc

To pictures?

 

[DominicB]

Hi Mark

Just knew that one was coming!

There are thousands of FaceID pictures available, but you need to be able to see them all so you can choose which one you want. So, you need a FaceID viewer utility. These are usually FOC add-ins, there are a couple of links here that provide them :

http://skp.mvps.org/faceid.htm
http://j-walk.com/ss/excel/tips/faceidgrid.exe

I personally like the one by Jim Cone (you can't download it, he'll only send it via e-mail) - if you want that let me know your e-mail address - but they're all much of a muchness. Anyway, once you start it going, look for FaceID 71 and 72 and you'll see that they relate to large graphical numbers 1 and 2... You get the idea...

HTH

DominicB

 

[MarkAndrews]

Thanks Dominic

Apologies for the delay, been in a project meeting as per PM earlier

M