Customizing VBEnvironment command bar oddities

[BartH]

Hi group,

In the VBEditor environment, I have some customizations to the commands in the command bars.
Sometimes errors cause all changes to be reset, so I decided to put some code together to make the changes programmatically.

Now there are some strange results and I am looking for answers, I hope you might be able to provide:

1. when adding the Compile command
   

   Application.VBE.CommandBars("Standard").Controls.Add 1, 578

   the result is:
   
   
   
   
   while when adding it manually, the result is:
   
   
   
   
   Why the difference, and why doesn't Compile All &Modules do anything?
   
   
2. When I add a default control
   

   Application.VBE.CommandBars("Debug") .Controls.Add msoButtonIcon, 579, , 3

   it works fine, but it stops working after I change the FaceId
   

   Application.VBE.CommandBars("Debug") .Controls(6).FaceId = 9724

   Why?
   
   
3. Where are changes to the VBE command bars stored and could they be restored when stored and re-applied?
   I found some reports of them being stored in the registry and also it would be in a xlb (xlsb now?) file.
   What is modern truth and coherence here?

Am looking forward to your useful answers,
Grtz Bart

 

[BartH]

PS

I found a way to store settings in the registry:

        SaveSetting appname:="DeBugBar", section:="CMD" & ctrl.ID, key:="BeginGroup", setting:=ctrl.BeginGroup
        SaveSetting appname:="DeBugBar", section:="CMD" & ctrl.ID, key:="Index", setting:=ctrl.Index
        SaveSetting appname:="DeBugBar", section:="CMD" & ctrl.ID, key:="ID", setting:=ctrl.ID
        SaveSetting appname:="DeBugBar", section:="CMD" & ctrl.ID, key:="Caption", setting:=ctrl.Caption
        SaveSetting appname:="DeBugBar", section:="CMD" & ctrl.ID, key:="FaceId", setting:=ctrl.FaceId

Which can be retrieved with:

GetSetting(appname:="DeBugBar", section:="CMD1811", key:="<whateveryouneed>")

So could be re-applied like

Application.VBE.CommandBars("Debug") .Controls.Add msoButtonIcon, _
    GetSetting(appname:="DeBugBar", section:="CMD1811", key:="ID"), ,1

but then still the aforementioned problems exist.