CommandBars
10.09.2003 17:05:58
nadine
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...