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

CommandBars

CommandBars
10.09.2003 17:05:58
nadine
Hallo zusammen,

ich habe bei einer Datei folgendes hinzugefügt, um in der obersten Symbolleiste einen weiteren Menüpunkt zu bekommen:

Set ergänz = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _
msoControlPopup, Before:=10, temporary:=True)
ergänz.Caption = "neuer Menüpunkt"

Ein Makro führt die Ergänzung beim Öffnen der Datei aus und ein weiteres entfernt den Menüpunkt sobald die Datei wieder geschlossen wird.
Funktioniert soweit alles bestens.

Mein Problem:
Wenn von diesem Dateityp nacheinander mehrere Dateien geöffnet werden, dann wird jedesmal dieser Menüpunkt eingefügt und in der obersten Symbolleiste stehen dann mehrere identische Menüpunkte...
Kann mir jemand sagen, wie eine If-Abfrage aussehen müsste, die checkt, ob dieser Menüpunkt schon vorhanden ist, und nur wenn nicht, ihn hinzufügt?

Danke für Eure Hilfe...

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandBars
10.09.2003 18:51:32
K.Rola
Hallo,

du musst halt alle controls in einer Schleife auf die caption hin
testen.

Gruß K.Rola

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige