Hilfeee --> Menüeintrag



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Hilfeee --> Menüeintrag
von: Steffen
Geschrieben am: 07.07.2002 - 11:37:17

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

nach oben   nach unten

Re: Hilfeee --> Menüeintrag
von: Michael Scheffler
Geschrieben am: 07.07.2002 - 12:24:52

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


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Makro aus anderer Mappe aufrufen"