|
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 |
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 |
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 |
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 |
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 |
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 |
Adding Button to Popup Control
Hi Rob,
Thanks for the answer. The goal of the macro was to set up every user's PowerPoint with the same buttons and controls. Hopefully, they will be able to get by without the change autoshapes (or at least add it on their own). That seems odd that the AutoShapes control works, but the Change AutoShapes doesn't. Perhaps it has something to do with the control dynamically enabling and disabling depending on whether the user has selected an object. Thanks for your help, Jeff "Rob Bovey" wrote: 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 |
| All times are GMT +1. The time now is 02:16 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com