| Hallo an alle Excel Fachleute |
| |
| ich habe einige fachliche Fragen an Ecxcel Profis wo ich nicht weiter weiss. CommandBars und Menüband ab Excel 2007 |
| Im alten 2003 konnte ich mir alle Menüleisten und Symbolleisten auflisten und per VBA neue Menüpunkte oder Buttons einfügen. |
| |
|
Bei Ribbon geht das nicht mehr. Ich habe im Internet einige Beispiele gefunden wie man neue IFade einfügen kann, komme damit aber noch nicht so richtig zurechtt.
Vor allem kann ich nicht nachvollziehen wo die neue Symbolleiste eingefügt wird und kann sie nicht auslesen. Beim experimentieren wurden Buttons erstellt die ich nicht
per VBA löschen konnte! Ich konnte aber auch nicht auslesen wo sie angebunden waren?? Wer kann mir dafür einen Code besorgen?!
|
|
Bei CommandButton im Blatt kann ich mit dem Befehs Application.Caller den Button Index lesen und über SelectCase alle Button auswerten. Bei IFade klappt das nicht.
wie kann ich dort erkennen welcher Button gedrückt wurde?? Kann man den Text, Index oder die Quick Info auslesen? Oder muss jeder Button sein eigenes Makro bekommen.
Wo genau wird unten im Code "Standard" hingelegt? Mit welchen Befehlen kann ich das Menüband und Symbolleisten ab 2007 auslesen?
|
| |
|
Im Intenrnet gibt ez zu Symbolleisten eine DownLoad von Hajo. Da kann ich im Beispiel nirgendwo ersehen wie die Buttons ihr Makro zugewiesen bekommen.
Und Beispiel Buttons kann ich nicht erkennen. Habt ihr bessere Code zum Ifade Button erstellen wie den unteren?? Ich möhte mir 10-20 eigene Button erstellen
um staendig wiederkehrende Projekte schneller bearbeiten zu können.
|
| |
| Vielen Dank für jede Hilfe die mich weiterbringt. (** Hinweis zu Crossposting: diese Frage wurde auch bei Clever Excel und Herber gestellt, bisher ohne Antwort) |
| |
| mfg Gast xxx |
| |
|
Code:
|
|
Sub Symbolleiste_erstellen()
|
| Dim oBar As CommandBar |
| Dim oBtn As CommandBarButton |
| Set oBar = Application.CommandBars("Standard") |
| On Error Resume Next |
| oBar.Controls("MyButton").Delete |
| |
| On Error GoTo 0 |
| Set oBtn = oBar.Controls.Add |
| With oBtn |
| .Caption = "MyButton" '00 Keine Funktiob!! |
| 'erstellt max. 3 Button untereinander statt nebeneinander!'! |
| For j = 1 To 10 |
| .Style = msoButtonIconAndCaption 'msoButtonIcon |
| .Caption = "My Button " & j |
| .FaceId = j + 360 '361 |
| .OnAction = "Meldung" |
| Next j |
| .Height = 320 |
| End With |
| End Sub |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |