Commandbar Controls
13.01.2005 17:35:42
Rolf
ich möchte alle Controls aller Commandbars auflisten.
Mit "CommandBars.FindControls" erhalte ich nur die 1. Ebene.
Wie kann ich die weiteren Ebenen (s.Codebeispiel "Datei"
und "Druckbereich") automatisiert ansprechen?
Freundliche Grüße
Rolf Beißner
Hinweis:
Den Gosub-Befehl macht der Forumeditor nicht mit;
bitte also im u.a. Code "Goto" durch "Gosub" ersetzen.
Option Explicit
Sub ShowControls()
Dim cbc As CommandBarControls, c As CommandBarControl
Dim iRow As Integer
Worksheets.Add
'1. Ebene: Controls von Commandbars
Set cbc = CommandBars.FindControls
Goto NextLevel
'2. Ebene: Controls von "Datei"
Set cbc = CommandBars("Worksheet Menu Bar").Controls("&Datei").Controls
Goto NextLevel
'3. Ebene: Controls von "Druckbereich"
Set cbc = CommandBars("Worksheet Menu Bar").Controls("&Datei"). _
Controls("Druc&kbereich").Controls
Goto NextLevel
Exit Sub
NextLevel:
For Each c In cbc
iRow = iRow + 1
Cells(iRow, 1) = c.Parent.Name
Cells(iRow, 2) = c.Caption
Next
Return
End Sub