Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
button bar
I have made a custom button bar for my spreadsheet and have set it as visible
as an open event! is there a way of saving the custom bar with the sheet so that when i email it to someone else the custom button bar is available to them? any suggestions gratefully recieved. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
button bar
Build the bar dynamically. Here is an example of what I mean.
Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.CommandBars("myToolbar").Delete On Error GoTo 0 End Sub Private Sub Workbook_Open() Dim oCB As CommandBar Dim oCtl As CommandBarControl On Error Resume Next Application.CommandBars("myToolbar").Delete On Error GoTo 0 Set oCB = Application.CommandBars.Add(Name:="myToolbar", temporary:=True) With oCB Set oCtl = .Controls.Add(Type:=msoControlButton) With oCtl .BeginGroup = True .Caption = "savenv" .OnAction = "savenv" .FaceId = 27 End With Set oCtl = .Controls.Add(Type:=msoControlButton) With oCtl .Caption = "savemyprog" .OnAction = "savemyprog" .FaceId = 28 End With Set oCtl = .Controls.Add(Type:=msoControlButton) With oCtl .Caption = "macro4" .OnAction = "macro4" .FaceId = 29 End With Set oCtl = .Controls.Add(Type:=msoControlButton) With oCtl .Caption = "dater" .OnAction = "dater" .FaceId = 30 End With .Visible = True .Position = msoBarTop End With End Sub 'To add this, go to the VB IDE (ALT-F11 from Excel), and in 'the explorer pane, select your workbook. Then select the 'ThisWorkbook object (it's in Microsoft Excel Objects which 'might need expanding). Double-click the ThisWorkbook and 'a code window will open up. Copy this code into there, 'changing the caption and action to suit. 'This is part of the workbook, and will only exist with the 'workbook, but will be available to anyone who opens the 'workbook. -- __________________________________ HTH Bob "Atishoo" wrote in message ... I have made a custom button bar for my spreadsheet and have set it as visible as an open event! is there a way of saving the custom bar with the sheet so that when i email it to someone else the custom button bar is available to them? any suggestions gratefully recieved. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
button bar
thanks bob its great!
do you know where id find a list of face id's and how i get it to display icons and text "Bob Phillips" wrote: Build the bar dynamically. Here is an example of what I mean. Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.CommandBars("myToolbar").Delete On Error GoTo 0 End Sub Private Sub Workbook_Open() Dim oCB As CommandBar Dim oCtl As CommandBarControl On Error Resume Next Application.CommandBars("myToolbar").Delete On Error GoTo 0 Set oCB = Application.CommandBars.Add(Name:="myToolbar", temporary:=True) With oCB Set oCtl = .Controls.Add(Type:=msoControlButton) With oCtl .BeginGroup = True .Caption = "savenv" .OnAction = "savenv" .FaceId = 27 End With Set oCtl = .Controls.Add(Type:=msoControlButton) With oCtl .Caption = "savemyprog" .OnAction = "savemyprog" .FaceId = 28 End With Set oCtl = .Controls.Add(Type:=msoControlButton) With oCtl .Caption = "macro4" .OnAction = "macro4" .FaceId = 29 End With Set oCtl = .Controls.Add(Type:=msoControlButton) With oCtl .Caption = "dater" .OnAction = "dater" .FaceId = 30 End With .Visible = True .Position = msoBarTop End With End Sub 'To add this, go to the VB IDE (ALT-F11 from Excel), and in 'the explorer pane, select your workbook. Then select the 'ThisWorkbook object (it's in Microsoft Excel Objects which 'might need expanding). Double-click the ThisWorkbook and 'a code window will open up. Copy this code into there, 'changing the caption and action to suit. 'This is part of the workbook, and will only exist with the 'workbook, but will be available to anyone who opens the 'workbook. -- __________________________________ HTH Bob "Atishoo" wrote in message ... I have made a custom button bar for my spreadsheet and have set it as visible as an open event! is there a way of saving the custom bar with the sheet so that when i email it to someone else the custom button bar is available to them? any suggestions gratefully recieved. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
insert row above button (retrieve position of button) | Excel Discussion (Misc queries) | |||
Button | Setting up and Configuration of Excel | |||
How can I assign a symbol to a button (like the $ button) | Excel Discussion (Misc queries) | |||
Superscript Button and Subscript Button | Excel Discussion (Misc queries) | |||
How do I lock a radio button group if a N/A button is selected | Excel Discussion (Misc queries) |