Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I add the tick box function to the tool bar?
I want to have a button on the tool bar for a tick. I need to be able to
click a cell and then click a button in the toolbar which adds a tick to that cell |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I add the tick box function to the tool bar?
Sub AddMenu()
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 = "AddTick" .OnAction = "AddTick" .FaceId = 161 End With .Visible = True .Position = msoBarTop End With End Sub Sub AddTick() With ActiveCell .Value = "a" .Font.Name = "Marlett" End With End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Kate" wrote in message ... I want to have a button on the tool bar for a tick. I need to be able to click a cell and then click a button in the toolbar which adds a tick to that cell |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Fill Function to next Column | Excel Worksheet Functions | |||
How can I use Excel to solve an equation? | Excel Worksheet Functions | |||
Date & Time | New Users to Excel | |||
Conversion | Excel Worksheet Functions | |||
HOW CAN I GET OFFICE 2003 EXCEL BASIC TO NEST FUNCTIONS LIKE EXCE. | Excel Worksheet Functions |