Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Toolbar Menu problems
I have set the following code up to create a new toolbar, it works until I
try to add the rsOp1 and rsOp2 popup items - what is wrong with this code? Dim rsTB As CommandBar Set rsTB = Application.CommandBars.Add(Name:="rsTB", Position:=msoBarTop, MenuBar:=False) rsTB.Visible = True rsTB.Protection = msoBarNoChangeVisible + msoBarNoResize + msoBarNoChangeDock Dim rsBut As CommandBarPopup Dim rsOp1 As CommandBarPopup, rsOp2 As CommandBarPopup Set rsBut = Application.CommandBars("rsTB").Controls.Add(Type: =msoControlPopup, befo=1) Set rsOp1 = Application.CommandBars("rsTB").Controls("rsBut"). Controls.Add() Set rsOp2 = Application.CommandBars("rsTB").Controls("rsBut"). Controls.Add() rsBut.Caption = "SAM Report" rsOp1.Caption = "Summary" rsOp2.Caption = "Targets" -- Cheers Nigel |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Toolbar problems | Excel Discussion (Misc queries) | |||
Toolbar/Menu Bar | Excel Discussion (Misc queries) | |||
Can't find menu toolbar | Excel Discussion (Misc queries) | |||
Toolbar Problems | Excel Programming | |||
icon in menu toolbar | Excel Programming |