Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ID-Liste für Buttonfunktion

ID-Liste für Buttonfunktion
27.05.2004 10:36:33
Werner
Liebe Leute,
mit 'Set Menu1 = Menu1.Controls.Add(Type:=msoControlButton, ID:=3) usw. erzeuge ich eine Symbolleiste mit Buttons.
Mit 'ID:=3' wird die F u n k t i o n des Buttons bestimmt (z.B. ist ID3 die Funktion 'Speichern').
Ich suche nun verzweifelt eine Auflistung aller IDs (Bitte nicht verwechseln mit der Liste für 'Face-ID' - mit der wird ja nur das Aussehen, nicht aber die Funktion bestimmt).
Weiß jemand, ob und wo ich sowas finden kann?
Grüße
Werner

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ID-Liste für Buttonfunktion
27.05.2004 10:54:12
Ben

Sub IDs_auflisten()
Dim oBar As CommandBar
Dim oCtr As CommandBarControl
Dim oBtn As CommandBarButton
Dim iRow As Integer
Cells(1, 1).Value = "Befehlsleiste"
Cells(1, 2).Value = "Lokaler Name"
Cells(1, 3).Value = "Integriert?"
Cells(1, 4).Value = "Aktiviert?"
Cells(1, 5).Value = "Sichtbar?"
Cells(1, 6).Value = "Schaltfläche"
Cells(1, 7).Value = "ID"
Cells(1, 8).Value = "Index"
Cells(1, 9).Value = "Integriert?"
Cells(1, 10).Value = "Aktiviert?"
Cells(1, 11).Value = "Sichtbar?"
With Range(Cells(1, 1), Cells(1, 11))
.HorizontalAlignment = xlCenter
.Font.Bold = True
.Interior.ColorIndex = 40
End With
Cells(2, 2).Select
ActiveWindow.FreezePanes = True
iRow = 1
For Each oBar In CommandBars
iRow = iRow + 1
Cells(iRow, 1).Value = oBar.Name
Cells(iRow, 2).Value = oBar.NameLocal
Cells(iRow, 3).Value = oBar.BuiltIn
Cells(iRow, 4).Value = oBar.Enabled
Cells(iRow, 5).Value = oBar.Visible
Cells(iRow + 1, 1).Value = "(ID = " & cStr(oBar.ID) _
& ",  Index = " & cStr(oBar.Index) & ")"
For Each oCtr In oBar.Controls
Cells(iRow, 6).Value = oCtr.Caption
Cells(iRow, 7).Value = oCtr.ID
Cells(iRow, 8).Value = oCtr.Index
Cells(iRow, 9).Value = oCtr.BuiltIn
Cells(iRow, 10).Value = oCtr.Enabled
Cells(iRow, 11).Value = oCtr.Visible
iRow = iRow + 1
Next oCtr
Next oBar
Columns.AutoFit
End Sub

Anzeige
AW: ID-Liste für Buttonfunktion
27.05.2004 11:06:56
Werner
Hallo Ben, genial! Vielen Dank!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige