Creating Custom Toolbars
Hello,
Can anyone help me in understanding how to create a custom toolbar t have my own format???I have taken some help from an excel text book an created this code below....But I am not happy with the way its workin cos its not doing what I am loking for.... I am trying to add either another control/button to the built in lis in the Category Menu of the formatcells toolbar For eg: we have built in categories like General,Number,Accounting etc et ....Can I add my own button to this list or...can add my own format t the list in custom format?? Herz what I have....An revisions/modifications to this code to make it work the way I wan greatly appreciated..... Sub MakeCustomFormatDisplay() Dim Tbar As CommandBar Dim NewBtn As CommandBarButton On Error Resume Next CommandBars("Custom Format").Delete On Error GoTo 0 Set Tbar = CommandBars.Add With Tbar .Name = "Custom Format" .Visible = True End With Set NewBtn = CommandBars("Custo Format").Controls.Add(Type:=msoControlButton) With NewBtn .Caption = " " .OnAction = "FormatChanger" .TooltipText = "Click to change the Custom format" .Style = msoButtonCaption End With Call UpdateToolbar End Sub Sub UpdateToolbar() On Error Resume Next CommandBars("Custom Format").Controls(1).Caption ActiveCell.CustomFormat End Sub Sub FormatChanger() Dim r As Range For Each r In Selection If IsNumeric(r.Value) Then Select Case r.Value Case 1 r.Value = "Read Only" Case 2 r.Value = "Assessor" Case 3 r.Value = "Reviewer" End Select End If Next Call UpdateToolbar End Su -- Message posted from http://www.ExcelForum.com |
Creating Custom Toolbars
Also, please don't post the same question in two different groups. I have
attempted to answer your question elsewhere. -- Vasant "excel_naive " wrote in message ... Hello, Can anyone help me in understanding how to create a custom toolbar to have my own format???I have taken some help from an excel text book and created this code below....But I am not happy with the way its working cos its not doing what I am loking for.... I am trying to add either another control/button to the built in list in the Category Menu of the formatcells toolbar For eg: we have built in categories like General,Number,Accounting etc etc ...Can I add my own button to this list or...can add my own format to the list in custom format?? Herz what I have....Any revisions/modifications to this code to make it work the way I want greatly appreciated..... Sub MakeCustomFormatDisplay() Dim Tbar As CommandBar Dim NewBtn As CommandBarButton On Error Resume Next CommandBars("Custom Format").Delete On Error GoTo 0 Set Tbar = CommandBars.Add With Tbar Name = "Custom Format" Visible = True End With Set NewBtn = CommandBars("Custom Format").Controls.Add(Type:=msoControlButton) With NewBtn Caption = " " OnAction = "FormatChanger" TooltipText = "Click to change the Custom format" Style = msoButtonCaption End With Call UpdateToolbar End Sub Sub UpdateToolbar() On Error Resume Next CommandBars("Custom Format").Controls(1).Caption = ActiveCell.CustomFormat End Sub Sub FormatChanger() Dim r As Range For Each r In Selection If IsNumeric(r.Value) Then Select Case r.Value Case 1 r.Value = "Read Only" Case 2 r.Value = "Assessor" Case 3 r.Value = "Reviewer" End Select End If Next Call UpdateToolbar End Sub --- Message posted from http://www.ExcelForum.com/ |
All times are GMT +1. The time now is 10:08 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com