title image


Smiley Re: Benutzerdefinierte Symbolleiste ausgeben






Sub CmdMenues1()

    

    For Each cmdbar1 In Application.CommandBars

        If cmdbar1.Visible Then MsgBox cmdbar1.Name

    Next cmdbar1

    

    ' MsgBox Application.CommandBars("Menu Bar").Controls.Item(1).Caption

    

    For Each con In Application.CommandBars("Menu Bar").Controls

        If con.Type = msoControlPopup Then

            strMeldung = strMeldung & con.Caption & ": "

            For Each But In con.Controls 

                strMeldung = strMeldung & But.Caption & "; "

            Next But

        End If

        strMeldung = strMeldung & vbNewLine

    Next con

    

    MsgBox "Ein Auszug: " & vbNewLine & strMeldung

    

    Debug.Print strMeldung



End Sub









Code eingefügt mit Syntaxhighlighter 2.5





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: