Adding Button to Popup Control

[trooper665]

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, Before:=2)

oPop.Caption = "Change IT!"
'basic shapes------------------------------------------------

Set oSecondPop = oPop.Controls.Add(Type:=msoControlButtonPopup, Id:=1405,
Before:=1)

oSecondPop.Controls.Add Type:=msoControlButton, Id:=1232

Does anyone know what I am doing wrong?

Thanks,
Jeff

 

[Rob Bovey]

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]

But this very same code works:

Set oPop =
Application.CommandBars("BPT_BOTTOM").Controls.Add(Type:=msoControlPopup,
Id:=30177, Before:=1)
oPop.Caption = "Shapes!"
'lines-------------------------------------------------------
Set oSecondPop = oPop.Controls.Add(Type:=msoControlButtonPopup,
Id:=2631, Before:=1)
oSecondPop.Controls.Add Type:=msoControlButton, Id:=130, Before:=1
oSecondPop.Controls.Add Type:=msoControlButton, Id:=243, Before:=2
oSecondPop.Controls.Add Type:=msoControlButton, Id:=1639, Before:=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]

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]

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]

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]

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