| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding Button to Popup Control
I am trying to add a button to a popup control, but I am getting an error
message saying that the add method failed. Here is the code that I am using. This code works for other controls. Set oPop = Application.CommandBars("BPT_BOTTOM").Controls.Add (Type:=msoControlPopup, Id:=30080, Befo=2) oPop.Caption = "Change IT!" 'basic shapes------------------------------------------------ Set oSecondPop = oPop.Controls.Add(Type:=msoControlButtonPopup, Id:=1405, Befo=1) oSecondPop.Controls.Add Type:=msoControlButton, Id:=1232 Does anyone know what I am doing wrong? Thanks, Jeff |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding Button to Popup Control
Hi Jeff,
You can't make any modifications to a built-in control of type msoControlButtonPopup. -- Rob Bovey, Excel MVP Application Professionals http://www.appspro.com/ * Take your Excel development skills to the next level. * Professional Excel Development http://www.appspro.com/Books/Books.htm "trooper665" wrote in message ... I am trying to add a button to a popup control, but I am getting an error message saying that the add method failed. Here is the code that I am using. This code works for other controls. Set oPop = Application.CommandBars("BPT_BOTTOM").Controls.Add (Type:=msoControlPopup, Id:=30080, Befo=2) oPop.Caption = "Change IT!" 'basic shapes------------------------------------------------ Set oSecondPop = oPop.Controls.Add(Type:=msoControlButtonPopup, Id:=1405, Befo=1) oSecondPop.Controls.Add Type:=msoControlButton, Id:=1232 Does anyone know what I am doing wrong? Thanks, Jeff |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding Button to Popup Control
But this very same code works:
Set oPop = Application.CommandBars("BPT_BOTTOM").Controls.Add (Type:=msoControlPopup, Id:=30177, Befo=1) oPop.Caption = "Shapes!" 'lines------------------------------------------------------- Set oSecondPop = oPop.Controls.Add(Type:=msoControlButtonPopup, Id:=2631, Befo=1) oSecondPop.Controls.Add Type:=msoControlButton, Id:=130, Befo=1 oSecondPop.Controls.Add Type:=msoControlButton, Id:=243, Befo=2 oSecondPop.Controls.Add Type:=msoControlButton, Id:=1639, Befo=3 As far as I can tell the code is the exact same. Why does it work in one place, but not another? Thanks, Jeff "Rob Bovey" wrote: Hi Jeff, You can't make any modifications to a built-in control of type msoControlButtonPopup. -- Rob Bovey, Excel MVP Application Professionals http://www.appspro.com/ * Take your Excel development skills to the next level. * Professional Excel Development http://www.appspro.com/Books/Books.htm "trooper665" wrote in message ... I am trying to add a button to a popup control, but I am getting an error message saying that the add method failed. Here is the code that I am using. This code works for other controls. Set oPop = Application.CommandBars("BPT_BOTTOM").Controls.Add (Type:=msoControlPopup, Id:=30080, Befo=2) oPop.Caption = "Change IT!" 'basic shapes------------------------------------------------ Set oSecondPop = oPop.Controls.Add(Type:=msoControlButtonPopup, Id:=1405, Befo=1) oSecondPop.Controls.Add Type:=msoControlButton, Id:=1232 Does anyone know what I am doing wrong? Thanks, Jeff |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding Button to Popup Control
Hi Jeff,
After investigating this further it appears that I was wrong. I'm not sure what the problem is at this point, but it seems to have something to do with the control whose ID is 1232. I'm unable to add that control to anything. Which control does this ID refer to? -- Rob Bovey, Excel MVP Application Professionals http://www.appspro.com/ * Take your Excel development skills to the next level. * Professional Excel Development http://www.appspro.com/Books/Books.htm "trooper665" wrote in message ... But this very same code works: Set oPop = Application.CommandBars("BPT_BOTTOM").Controls.Add (Type:=msoControlPopup, Id:=30177, Befo=1) oPop.Caption = "Shapes!" 'lines------------------------------------------------------- Set oSecondPop = oPop.Controls.Add(Type:=msoControlButtonPopup, Id:=2631, Befo=1) oSecondPop.Controls.Add Type:=msoControlButton, Id:=130, Befo=1 oSecondPop.Controls.Add Type:=msoControlButton, Id:=243, Befo=2 oSecondPop.Controls.Add Type:=msoControlButton, Id:=1639, Befo=3 As far as I can tell the code is the exact same. Why does it work in one place, but not another? Thanks, Jeff "Rob Bovey" wrote: Hi Jeff, You can't make any modifications to a built-in control of type msoControlButtonPopup. -- Rob Bovey, Excel MVP Application Professionals http://www.appspro.com/ * Take your Excel development skills to the next level. * Professional Excel Development http://www.appspro.com/Books/Books.htm "trooper665" wrote in message ... I am trying to add a button to a popup control, but I am getting an error message saying that the add method failed. Here is the code that I am using. This code works for other controls. Set oPop = Application.CommandBars("BPT_BOTTOM").Controls.Add (Type:=msoControlPopup, Id:=30080, Befo=2) oPop.Caption = "Change IT!" 'basic shapes------------------------------------------------ Set oSecondPop = oPop.Controls.Add(Type:=msoControlButtonPopup, Id:=1405, Befo=1) oSecondPop.Controls.Add Type:=msoControlButton, Id:=1232 Does anyone know what I am doing wrong? Thanks, Jeff |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding Button to Popup Control
Hi Rob,
This is the "change shape to rectangle control" from the Basic Shapes popup menu in the Change AutoShapes control. I hope that makes sense. Thanks, Jeff "Rob Bovey" wrote: Hi Jeff, After investigating this further it appears that I was wrong. I'm not sure what the problem is at this point, but it seems to have something to do with the control whose ID is 1232. I'm unable to add that control to anything. Which control does this ID refer to? -- Rob Bovey, Excel MVP Application Professionals http://www.appspro.com/ * Take your Excel development skills to the next level. * Professional Excel Development http://www.appspro.com/Books/Books.htm "trooper665" wrote in message ... But this very same code works: Set oPop = Application.CommandBars("BPT_BOTTOM").Controls.Add (Type:=msoControlPopup, Id:=30177, Befo=1) oPop.Caption = "Shapes!" 'lines------------------------------------------------------- Set oSecondPop = oPop.Controls.Add(Type:=msoControlButtonPopup, Id:=2631, Befo=1) oSecondPop.Controls.Add Type:=msoControlButton, Id:=130, Befo=1 oSecondPop.Controls.Add Type:=msoControlButton, Id:=243, Befo=2 oSecondPop.Controls.Add Type:=msoControlButton, Id:=1639, Befo=3 As far as I can tell the code is the exact same. Why does it work in one place, but not another? Thanks, Jeff "Rob Bovey" wrote: Hi Jeff, You can't make any modifications to a built-in control of type msoControlButtonPopup. -- Rob Bovey, Excel MVP Application Professionals http://www.appspro.com/ * Take your Excel development skills to the next level. * Professional Excel Development http://www.appspro.com/Books/Books.htm "trooper665" wrote in message ... I am trying to add a button to a popup control, but I am getting an error message saying that the add method failed. Here is the code that I am using. This code works for other controls. Set oPop = Application.CommandBars("BPT_BOTTOM").Controls.Add (Type:=msoControlPopup, Id:=30080, Befo=2) oPop.Caption = "Change IT!" 'basic shapes------------------------------------------------ Set oSecondPop = oPop.Controls.Add(Type:=msoControlButtonPopup, Id:=1405, Befo=1) oSecondPop.Controls.Add Type:=msoControlButton, Id:=1232 Does anyone know what I am doing wrong? Thanks, Jeff |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Adding Button to Popup Control
Hi Jeff,
I'm not really sure what's different about the AutoShapes sub-controls that allows you to add identical versions of built-in controls to them where the sub-controls of the Change AutoShape menu don't. Even in the example where you modified the AutoShape Line menu, though, this doesn't seem to really do anything. If you press one version of the button, both versions depress, and if you tear off the Line menu, all of the duplicate controls disappear. I suspect it's just a quirk that the AutoShapes sub-controls allow this and it probably wasn't really meant to be supported. -- Rob Bovey, Excel MVP Application Professionals http://www.appspro.com/ * Take your Excel development skills to the next level. * Professional Excel Development http://www.appspro.com/Books/Books.htm "trooper665" wrote in message ... Hi Rob, This is the "change shape to rectangle control" from the Basic Shapes popup menu in the Change AutoShapes control. I hope that makes sense. Thanks, Jeff "Rob Bovey" wrote: Hi Jeff, After investigating this further it appears that I was wrong. I'm not sure what the problem is at this point, but it seems to have something to do with the control whose ID is 1232. I'm unable to add that control to anything. Which control does this ID refer to? -- Rob Bovey, Excel MVP Application Professionals http://www.appspro.com/ * Take your Excel development skills to the next level. * Professional Excel Development http://www.appspro.com/Books/Books.htm "trooper665" wrote in message ... But this very same code works: Set oPop = Application.CommandBars("BPT_BOTTOM").Controls.Add (Type:=msoControlPopup, Id:=30177, Befo=1) oPop.Caption = "Shapes!" 'lines------------------------------------------------------- Set oSecondPop = oPop.Controls.Add(Type:=msoControlButtonPopup, Id:=2631, Befo=1) oSecondPop.Controls.Add Type:=msoControlButton, Id:=130, Befo=1 oSecondPop.Controls.Add Type:=msoControlButton, Id:=243, Befo=2 oSecondPop.Controls.Add Type:=msoControlButton, Id:=1639, Befo=3 As far as I can tell the code is the exact same. Why does it work in one place, but not another? Thanks, Jeff "Rob Bovey" wrote: Hi Jeff, You can't make any modifications to a built-in control of type msoControlButtonPopup. -- Rob Bovey, Excel MVP Application Professionals http://www.appspro.com/ * Take your Excel development skills to the next level. * Professional Excel Development http://www.appspro.com/Books/Books.htm "trooper665" wrote in message ... I am trying to add a button to a popup control, but I am getting an error message saying that the add method failed. Here is the code that I am using. This code works for other controls. Set oPop = Application.CommandBars("BPT_BOTTOM").Controls.Add (Type:=msoControlPopup, Id:=30080, Befo=2) oPop.Caption = "Change IT!" 'basic shapes------------------------------------------------ Set oSecondPop = oPop.Controls.Add(Type:=msoControlButtonPopup, Id:=1405, Befo=1) oSecondPop.Controls.Add Type:=msoControlButton, Id:=1232 Does anyone know what I am doing wrong? Thanks, Jeff |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| adding a control button with a filter | Excel Worksheet Functions | |||
| ADDING A PRINT CONTROL BUTTON | Excel Worksheet Functions | |||
| Adding a control button to insert a date in the active cell. | Excel Discussion (Misc queries) | |||
| How do I get events from a "Split Button Popup" control? | Excel Programming | |||
| Control IE popup from excel VBA instantiation | Excel Programming | |||
Hybrid Mode
