title image


Smiley Liste der Control-Id's
dazu habe ich mir ein Makro von Joerg Lorenz geklaut.







      

Sub ID_anzeigen()

Dim intZ%, objY As CommandBar, objX As CommandBarControl

[a1] = "ID":[b1] = "Name":[c1] = "Index":[d1] = "Symbolleiste"

intZ = 2

For Each objY In CommandBars

    For Each objX In CommandBars(objY.Name).Controls

        Cells(intZ, 1) = objX.ID

        Cells(intZ, 2) = objX.Caption

        Cells(intZ, 3) = objX.Index

        Cells(intZ, 4) = objY.Name

        intZ = intZ + 1

    Next

Next

End Sub 



Code eingefügt mit Syntaxhighlighter 3.0




Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: