Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Toolbar event management
Hi All
I have built a custom toolbar (code snippet below), the control button OnAction calls a subroutine with a single parameter. The subroutine simply displays a MsgBox informing the user of the status, with a single OK button to cancel the Msgbox. However the user has to press the OK control twice to cancel the MsgBox. I have established that subroutine runs twice! Can anyone explain why this happens and how to prevent it? code snippet follows.... ------------------------------------------------------------------- Sub BuildTB() Const tbName = "CFAM_TB" Dim NewMenuBar As CommandBar Dim NewMenu As CommandBarControl Dim NewItem As CommandBarControl Call RemoveMenus(tbName) Set NewMenuBar = CommandBars.Add(MenuBar:=False) With NewMenuBar .Name = tbName .Visible = True With .Controls.Add(Type:=msoControlButton, _ temporary:=True) .FaceId = 2817 .OnAction = "ExportData(1)" .Caption = "Send All" .Style = msoButtonIconAndCaption End With .Position = msoBarTop .Protection = msoBarNoChangeVisible + _ msoBarNoResize + _ msoBarNoChangeDock + _ msoBarNoCustomize End With End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Leave Management | Excel Discussion (Misc queries) | |||
Trap show toolbar event | Links and Linking in Excel | |||
Click event for checkbox from Forms toolbar | Excel Discussion (Misc queries) | |||
event management program | Excel Discussion (Misc queries) | |||
Event Management | Excel Programming |