Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding "Add-Ins..." control to custom tooolbar
Windows XP Pro SP2
Excel 2002 SP3 I have an AddIn that I created that creates a toolbar when the AddIn is turned on, and I want to add the "Add-Ins..." control from the Tools menu to this custom toolbar. I know I can get to the "Add-Ins..." control by Dim MyCtrl as CommandBarsControl Set MyCtrl = Application.CommandBars("Tools").Controls(15) The problem arises when I try to copy to my custom toolbar (named "MyToolbar") as I REALLY want to copy MyCtrl to a CommandBarPopup that is on "MyToolbar". So this is what I have MyCtrl, the "Add-Ins..." control from the Tools menu MyToolbar, created programmatically MyMenu, a CommandBarPopup on MyToolbar Any ideas? Thanks!! -gk- |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding "Add-Ins..." control to custom tooolbar
gk, You can use the "Copy" method to copy an existing control to a toolbar... Sub PutHerThere() Dim MyCtrl As CommandBarControl Dim MyToolbar As CommandBar Set MyCtrl = Application.CommandBars.FindControl(ID:=943) 'Add-Ins control Set MyToolbar = Application.CommandBars.Add("TempBar", msoBarFloating, False, True) MyCtrl.Copy bar:=MyToolbar MyToolbar.Visible = True Set MyCtrl = Nothing Set MyToolbar = Nothing End Sub 'Get rid of it... Sub Goodbye() Application.CommandBars("TempBar").Delete End Sub -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) "Sandusky" wrote in message Windows XP Pro SP2 Excel 2002 SP3 I have an AddIn that I created that creates a toolbar when the AddIn is turned on, and I want to add the "Add-Ins..." control from the Tools menu to this custom toolbar. I know I can get to the "Add-Ins..." control by Dim MyCtrl as CommandBarsControl Set MyCtrl = Application.CommandBars("Tools").Controls(15) The problem arises when I try to copy to my custom toolbar (named "MyToolbar") as I REALLY want to copy MyCtrl to a CommandBarPopup that is on "MyToolbar". So this is what I have MyCtrl, the "Add-Ins..." control from the Tools menu MyToolbar, created programmatically MyMenu, a CommandBarPopup on MyToolbar Any ideas? Thanks!! -gk- |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Adding data only if adjacent to cell labeled "male"/"female" | Excel Worksheet Functions | |||
"Control" plus "click" doesn't allow me to select multiple cells | New Users to Excel | |||
Scroll Bar missing "Control" tab in "Format Properties" dialog box | Excel Discussion (Misc queries) | |||
Adding "New" "Insert" "Delete" into a workbook to change from data 1 to data 2 etc | Excel Programming | |||
adding items to combobox using "Tag" control to limit | Excel Programming |