Menüeintrag Prüfen
Bernd
ich erstelle mit folgendem Makro einen Menüpunkt. Die Datei speichere ich unter einem anderen Namen ab. Öffne ich nun die Ursprungsdatei, muß ich wieder Makro aktivieren anklicken und habe den Menüeintrag nun 2 mal. Wie kann ich es bewerkstelligen, das geprüft wird ob der Menüeintrag schon vorhanden ist?
Gruß
Bernd
Sub Workbook_Open()
Set cb = Application.CommandBars("Worksheet Menu Bar")
Set cb1 = cb.FindControl(Tag:="Vorlage")
If Not cb1 Is Nothing Then cb1.Delete
Set cb1 = cb.Controls.Add(Type:=msoControlPopup, _
before:=cb.Controls.Count, _
Temporary:=True)
With cb1
.Caption = "&Vorlage"
.Tag = "Sortierung"
End With
With cb1.CommandBar.Controls.Add(Type:=msoControlButton)
.Caption = "Vorlage &Standard"
.OnAction = "Standard_Rahmen"
End With
With cb1.CommandBar.Controls.Add(Type:=msoControlButton)
.Caption = "Vorlage &e-mail"
.OnAction = "email_Rahmen"
End With
Standard_Rahmen
End Sub
Anzeige