title image


Smiley Re: Benutzerdefinierte Symbolleiste ausgeben
Hallo!



Glaube, im muß meine Frage erst mal etwas eingrenzen...



Wie ich die Symbolleiste durchlaufe ist mir klar.

Aber wie ich dann in ein Menü rein komme nicht!



Dim Con As CommandBarControl

Dim But As CommandBarControl

symbolleiste = "Testmakros"



For Each Con In Application.CommandBars(symbolleiste).Control

If Con.Type = msoControlPopup Then

For Each But In CommandBarPopup(Con.Caption) ' Fehler! Objekt fehlt!

MsgBox But.Caption

Next But

Else

...



Vielleicht hilft das schon mal weiter?



Gruß!



Mario



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: