Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
160to164
160to164
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Menüleisten

Forumthread: Menüleisten

Menüleisten
25.09.2002 18:38:17
Peter
Hi Leute,
vor ein paar Tagen habe ich unter Verwendung der Eigenschaft ActiveMenuBar eine eigene Menüleiste iniziiert. Die entscheidende Prozedur reagiert auf ein Workbook_Open-Ereignis.
Seltsamer Weise erscheint diese Menüleiste allerdings nur, wenn ich einen Chart aktiv habe und nicht wenn eine Tabelle aktiv ist. Was habe ich vergessen zu bedenken, wenn ich möchte, dass die neue Menüleiste unter allen Umständen vorhanden ist??


Danke für Euren Rat

Gruß

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Menüleisten
26.09.2002 08:11:07
Michael Wendeler
Hallo Peter,

poste mal den Code, das ist es einfach zu sagen, woran es liegen könnte.

Gruß
M. Wendeler
http://www.wendelers.de

Re: Menüleisten
26.09.2002 17:17:50
Peter
Hier nochmal der Quellcode mit der ActiveMenuBar-Eigneschaft:
Ich hoffe, das wird damit deutlich:


Sub MyMenu()
Dim Sh As Worksheet
Dim MeineMenueleiste As CommandBar
Dim NeuesMenue As CommandBarControl
Dim Steuerelement1 As CommandBarControl
Const LeistenName As String = "Dialo&ge"
Const PunktName As String = "&Hauptdialog"

Set MeineMenueleiste = CommandBars.ActiveMenuBar
Set NeuesMenue = MeineMenueleiste.Controls.Add(Type:=msoControlPopup, Temporary:=True)
NeuesMenue.Caption = LeistenName
Set Steuerelement1 = NeuesMenue.Controls.Add(Type:=msoControlButton, ID:=1)
With Steuerelement1
.Caption = PunktName
' .TooltipText = ""
.OnAction = "DialogShow"
.Style = msoButtonCaption
End With
End Sub


Vielen Dank


Gruß

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige