On Action Eigenschaft aller Menübefehle

Forumthread: On Action Eigenschaft aller Menübefehle
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: On Action Eigenschaft aller Menübefehle

21.01.2004 18:17:30

Feramuz

Hallo
Weiss jemand wie man "On action Eigenschaften allee benutzerdefinierten Menübefehlen" herausfinden kann ?
Vielen Dank im voraus

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: On Action Eigenschaft aller Menübefehle

24.01.2004 02:28:04

Dieter Klemke

AW: On Action Eigenschaft aller Menübefehle

24.01.2004 02:28:04

Dieter Klemke

Hallo Feramuz,
du kannst das z.B. so machen:


Sub OnAction_Auflisten()
Dim cb As CommandBar
Dim cbc As CommandBarControl
Dim ws As Worksheet
Dim zeile As Long
Set ws = ThisWorkbook.Worksheets(1)
ws.UsedRange.ClearContents
zeile = 1
For Each cb In Application.CommandBars
If Not cb.BuiltIn Then
ws.Cells(zeile, 1) = cb.Name
zeile = zeile + 1
For Each cbc In cb.Controls
ws.Cells(zeile, 1) = cbc.Index
ws.Cells(zeile, 2) = cbc.OnAction
zeile = zeile + 1
Next cbc
zeile = zeile + 1
End If
Next cb
End Sub

MfG
Dieter

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!