Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
docking a custom toolbar
Can a toolbar be docked?
I've created an add-in that creates a toolbar then it adds two buttons. All this works perfect. I would like for the toolbar to automatically dock, or once docked the first time by the user it will always remain there when Excel is opened (like all the rest of the toolbars. Any ideas? (see my code below) Private Sub Workbook_Open() Application.CommandBars("CN Tools").Delete Set cmdCN = Application.CommandBars.Add("CN Tools", , , False) With cmdCN .Visible = True 'CreateRedUnderlineButton With .Controls.Add(Type:=msoControlButton) .TooltipText = "Underlines number in red" .Picture = LoadPicture("H:\Tax return underline icon.bmp") .OnAction = "NumberForTaxReturn" End With 'Create button to number sheets With .Controls.Add(Type:=msoControlButton) .TooltipText = "Numbers all sheets in workbook" .OnAction = "NumberAllSheetsInWorkbook" .Picture = LoadPicture("H:\Number Sheets icon.bmp") End With End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
docking a custom toolbar
Use the Position property...
..Position = msoBarTop -and the RowIndex property... ..RowIndex = Application.CommandBars("Formatting").RowIndex Also, you may have to set the .Left property. -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware "JNW" wrote in message Can a toolbar be docked? I've created an add-in that creates a toolbar then it adds two buttons. All this works perfect. I would like for the toolbar to automatically dock, or once docked the first time by the user it will always remain there when Excel is opened (like all the rest of the toolbars. Any ideas? (see my code below) Private Sub Workbook_Open() Application.CommandBars("CN Tools").Delete Set cmdCN = Application.CommandBars.Add("CN Tools", , , False) With cmdCN .Visible = True 'CreateRedUnderlineButton With .Controls.Add(Type:=msoControlButton) .TooltipText = "Underlines number in red" .Picture = LoadPicture("H:\Tax return underline icon.bmp") .OnAction = "NumberForTaxReturn" End With 'Create button to number sheets With .Controls.Add(Type:=msoControlButton) .TooltipText = "Numbers all sheets in workbook" .OnAction = "NumberAllSheetsInWorkbook" .Picture = LoadPicture("H:\Number Sheets icon.bmp") End With End With End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
docking a custom toolbar
That did the trick. I added the position along with rowIndex. And to top it
off a Left = 1 to set it after the formatting bar. Thanks! -- JNW "Jim Cone" wrote: Use the Position property... ..Position = msoBarTop -and the RowIndex property... ..RowIndex = Application.CommandBars("Formatting").RowIndex Also, you may have to set the .Left property. -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware "JNW" wrote in message Can a toolbar be docked? I've created an add-in that creates a toolbar then it adds two buttons. All this works perfect. I would like for the toolbar to automatically dock, or once docked the first time by the user it will always remain there when Excel is opened (like all the rest of the toolbars. Any ideas? (see my code below) Private Sub Workbook_Open() Application.CommandBars("CN Tools").Delete Set cmdCN = Application.CommandBars.Add("CN Tools", , , False) With cmdCN .Visible = True 'CreateRedUnderlineButton With .Controls.Add(Type:=msoControlButton) .TooltipText = "Underlines number in red" .Picture = LoadPicture("H:\Tax return underline icon.bmp") .OnAction = "NumberForTaxReturn" End With 'Create button to number sheets With .Controls.Add(Type:=msoControlButton) .TooltipText = "Numbers all sheets in workbook" .OnAction = "NumberAllSheetsInWorkbook" .Picture = LoadPicture("H:\Number Sheets icon.bmp") End With End With End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
docking a custom toolbar
JNW,
I met the similar problem, the only different is that I need to dock the toolbar at the right bottom of Excel. I am a newbie of Excel VBA, can you elaborate how did you make it work? Thanks! Wei "JNW" wrote: That did the trick. I added the position along with rowIndex. And to top it off a Left = 1 to set it after the formatting bar. Thanks! -- JNW "Jim Cone" wrote: Use the Position property... ..Position = msoBarTop -and the RowIndex property... ..RowIndex = Application.CommandBars("Formatting").RowIndex Also, you may have to set the .Left property. -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware "JNW" wrote in message Can a toolbar be docked? I've created an add-in that creates a toolbar then it adds two buttons. All this works perfect. I would like for the toolbar to automatically dock, or once docked the first time by the user it will always remain there when Excel is opened (like all the rest of the toolbars. Any ideas? (see my code below) Private Sub Workbook_Open() Application.CommandBars("CN Tools").Delete Set cmdCN = Application.CommandBars.Add("CN Tools", , , False) With cmdCN .Visible = True 'CreateRedUnderlineButton With .Controls.Add(Type:=msoControlButton) .TooltipText = "Underlines number in red" .Picture = LoadPicture("H:\Tax return underline icon.bmp") .OnAction = "NumberForTaxReturn" End With 'Create button to number sheets With .Controls.Add(Type:=msoControlButton) .TooltipText = "Numbers all sheets in workbook" .OnAction = "NumberAllSheetsInWorkbook" .Picture = LoadPicture("H:\Number Sheets icon.bmp") End With End With End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Docking a Toolbar and having it stay | Excel Discussion (Misc queries) | |||
Toolbar Re-Docking | New Users to Excel | |||
VBA - Disappearing custom menu and custom toolbar | Excel Programming | |||
custom toolbar buttons are saved where? Excel loads twice bymistake and all my custom toolbar buttons get gone!!! | Excel Programming | |||
saving toolbar buttons on custom toolbar | Excel Programming |