Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
132to136
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
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hilfeee --> Menüeintrag

Hilfeee --> Menüeintrag
07.07.2002 11:37:17
Steffen
Hallo Leute ich brauch bei folgendem Problem bitte mal Eure Hilfe

Also:

Ich lasse per Makro ein Menü entstehen:

Sub menu_aufbauen()
menu_loeschen
Dim Hauptmenu As CommandBar
Dim aufrufen As CommandBarControl
Dim Steuerelement1 As CommandBarControl
Dim Steuerelement2 As CommandBarControl
Dim Steuerelement3 As CommandBarControl
Dim Steuerelement4 As CommandBarControl

'Dim Steuerelement5 As CommandBarControl


Set Hauptmenu = CommandBars.ActiveMenuBar
Set aufrufen = Hauptmenu.Controls.Add _
(Type:=msoControlPopup, Temporary:=False)
aufrufen.Caption = "Seriendruck Menü"

Set Steuerelement1 = aufrufen.Controls.Add _
(Type:=msoControlButton, Id:=1)
With Steuerelement1
.Caption = "Hauptmenu aufrufen"
.TooltipText = "Klicken um Menü zu starten"
.Style = msoButtonCaption
.OnAction = "Menu_aufrufen"
End With

Set Steuerelement2 = aufrufen.Controls.Add _
(Type:=msoControlButton, Id:=1)
With Steuerelement2
.Caption = "zu Word wechseln"
.TooltipText = "Klicken um Word zu starten"
.Style = msoButtonCaption
.OnAction = "Word_Wechseln"
End With

Set Steuerelement4 = aufrufen.Controls.Add _
(Type:=msoControlButton, Id:=1)
With Steuerelement4
.Caption = "Auto Filter für Quelldaten setzen"
.TooltipText = "Klicken für den Autofilter"
.Style = msoButtonIconAndCaption
.FaceId = 1664
.OnAction = "auto_filter"
End With

'Set Steuerelement5 = aufrufen.Controls.Add _
' (Type:=msoControlButton, Id:=1)
'With Steuerelement5
' .Caption = "Liste drucken"
' .TooltipText = "Klicken um eine Liste auszudrucken"
' .Style = msoButtonCaption
' .OnAction = "Drucken_vorbereiten"
'End With

Set Steuerelement3 = aufrufen.Controls.Add _
(Type:=msoControlButton, Id:=1)
With Steuerelement3
.Caption = "Info - Hilfe"
.TooltipText = "Klicken um Hilfe zu erhalten"
.Style = msoButtonCaption
.OnAction = "Hilfe_starten"
End With


End Sub

Nun möchte ich wenn ich auf den Menüpunkt "Autofilter" drücke, dass wie im richtigen Autofiltermenü ein Häcken davor erscheint wenn ich darauf klicke, ich habs mit der Symbol ID Probiert, aber leider bringt das nichts

Danke schonmal

Steffen

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Hilfeee --> Menüeintrag
07.07.2002 12:24:52
Michael Scheffler
Hallo,

ich würde die Caption nutzen.

Die erste Caption müsste zuerst ein, zwei Leerzeichen enthalten, dann Deinen Text. Und in deinem Makro "auto_filter" müsste dann die Caption Deines Button geändert werden.

Gruß

Micha

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige