CommandBars ShortcutKey

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: CommandBars ShortcutKey von: Bastelpeter
Geschrieben am: 27.02.2005 14:31:32

Hallo zusammen,

bin gerade eine CommandBar am stricken.
.ShortcutKey = "e" 'funktioniert leider nicht???warum????

Weiterhin stellt sich mir die Frage ob es nicht möglich ist einen Textteil aus
.Caption = "Schreibschutz für alle Tabellenblätter &einschalten" fett hervorzuheben.
Erbitte mal wieder Hilfe :-)))

Gruß aus Mainz / Sonnenpeter




Set Mb = MenüNeu.Controls.Add _
(Type:=msoControlButton)
With Mb
.Caption = "Schreibschutz für alle Tabellenblätter &einschalten"
.Style = msoButtonIconAndCaption
.OnAction = "BlattschutzEINAlle"
.FaceId = 1019
.ShortcutKey = "e" 'funktioniert leider nicht
.BeginGroup = True
End With

Bild


Betrifft: AW: CommandBars ShortcutKey von: Ulf
Geschrieben am: 27.02.2005 14:44:28

Aus der Hilfe:

ShortcutText-Eigenschaft
Siehe auch Betrifft Beispiel Zusatzinfo
Gibt den Tastenkombinationstext zurück, der neben dem angegebenen Schaltflächensteuerelement angezeigt wird, wenn diese Schaltfläche in einem Menü, einem Untermenü oder einem Shortcutmenü erscheint. String-Wert mit Lese-/Schreibzugriff.

Hinweise
Sie können diese Eigenschaft nur für Befehlsleistenschaltflächen verwenden, denen ein OnAction-Makro zugeordnet wurde.

Beispiel
In diesem Beispiel wird die Tastenkombination für den Befehl Neu (Menü Datei) auf der Menüleiste Arbeitsblatt in Microsoft Excel in einem Meldungsfenster angezeigt.

MsgBox (CommandBars("Worksheet Menu Bar"). _
Controls("File").Controls("New...).ShortcutText)

Fetter Text ist nicht möglich!

Ulf


Bild


Betrifft: AW: CommandBars ShortcutKey von: Sonnenpeter
Geschrieben am: 27.02.2005 15:22:31

Hallo ihr zwei,

danke für euer Interesse
Habe jetzt folgendwes probiert

Sub TestShortcut()
    Application.MacroOptions Macro:="Alle_BlätterBlattschutz_Aus", ShortcutKey:="e"
End Sub

geht leider nicht :-(((

.Caption = "Schreibschutz für alle Tabellenblätter &einschalten" unterstreicht das e funktioniert jedoch auch nicht.


Gruß aus Mainz / Sonnenpeter


Bild


Betrifft: AW: CommandBars ShortcutKey von: Ulf
Geschrieben am: 27.02.2005 17:54:42

Dann musst du das Makro mit strg + e aufrufen.

Ulf


Bild


Betrifft: AW: CommandBars ShortcutKey von: Nepumuk
Geschrieben am: 27.02.2005 14:45:39

Hallo Peter,

1. Du kannst einem CommandBarButton keinen Shortcut zuweisen, aber deinem Makro
2. Die Schrift lässt sich nicht beeinflussen.

Gruß
Nepumuk


Bild


Betrifft: AW: CommandBars ShortcutKey von: Nepumuk
Geschrieben am: 27.02.2005 14:52:54

Hallo Peter,

da hat Ulf Recht, das mit dem Shortcut geht schon. Du musst in deiner Caption vor dem Zeichen welches als Shortcut dienen soll ein & stellen. Die Caption "abc&def" ergibt der Shortcut Strg+d

Gruß
Nepumuk


Bild


Betrifft: Shortcut alt+d oT von: Ulf
Geschrieben am: 27.02.2005 14:55:46

oT


Bild


Betrifft: AW: Shortcut alt+d oT von: Nepumuk
Geschrieben am: 27.02.2005 14:57:55

Hi Ulf,

ok ok ok, du hast ja recht :-)

Gruß
Nepumuk


Bild


Betrifft: Endlich einmal! oT von: Ulf
Geschrieben am: 27.02.2005 15:07:25

oT


Bild


Betrifft: Hallo ihr zwei... CommandBars ShortcutKey von: Bastelpeter
Geschrieben am: 27.02.2005 17:26:58

Hallo ihr zwei,

habt ihr mich vergessen, bitte lest noch mal unter Sonnenpeter nach :-)))

Bin da immer noch nicht weiter.

Gruß / Sonnenpeter


Bild


Betrifft: AW: Hallo ihr zwei... CommandBars ShortcutKey von: Ulf
Geschrieben am: 27.02.2005 17:56:00

Woher soll man wissen, dass die Frage noch offen ist, dafür gibts die Option
"Frage noch offen" rechts in diesem Fenster.

Ulf


Bild


Betrifft: AW: Hallo ihr zwei... CommandBars ShortcutKey von: Bastelpeter
Geschrieben am: 27.02.2005 17:59:51

Hallo zusammen,

siehe oben.

Wenn ich nerve, bitte sagen.

Gruß Sonnenpeter


Bild


Betrifft: AW: Hallo ihr zwei... CommandBars ShortcutKey von: Ulf
Geschrieben am: 27.02.2005 18:04:55

Siehe andere Antwort.

Ulf


 Bild

Beiträge aus den Excel-Beispielen zum Thema "CommandBars ShortcutKey"