Forums Neueste Beiträge
 

menü nicht doppelt einfügen

06/03/2010 - 11:06 von klaus.könig | Report spam
hallo zusammen,

ich hab das problem, dass beim u.g. code zwar sichergestellt ist, dass
beim mehrfachen öffnen von versch. dateien, die diesen code enthalten
das menü nur einmal ausgeführt wird (durch vorgeschaltet if-abfrage).
nachteil bei der lösung ist jedoch, dass nach dem schließen der zuerst
geöffneten datei, das menü für die anderen nicht mehr verfügbar ist.

hat da jemand eine idee?

freue mich auf eine antwort.

Sub NeuesMenueEinfuegen()
Dim sMenName as String
Dim i As Integer
Dim iMenueZ As Integer 'Zàhler für das Menü Ablöse-RL
Dim i_Hilfe As Integer
Dim MenueNeu As CommandBarControl
Dim Mb As CommandBarControl
sMenName="Test"
'zuerst prüfen, ob das Menü schon vorhanden ist
For iMenueZ = 1 To Application.CommandBars(1).Controls.Count
If Application.CommandBars(1).Controls(iMenueZ).Caption = sMenName
Then
'MsgBox "Bin schon da!"
Exit Sub
End If
Next iMenueZ

i = Application.CommandBars(1).Controls.Count
i_Hilfe = Application.CommandBars(1).Controls(i).Index
Set MenueNeu = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=i_Hilfe, Temporary:=True)
MenueNeu.Caption = sMenName

end sub
 

Lesen sie die antworten

#1 Andreas Killer
06/03/2010 - 11:20 | Warnen spam
klaus.könig schrieb:

ich hab das problem, dass beim u.g. code zwar sichergestellt ist, dass
beim mehrfachen öffnen von versch. dateien, die diesen code enthalten
das menü nur einmal ausgeführt wird (durch vorgeschaltet if-abfrage).
nachteil bei der lösung ist jedoch, dass nach dem schließen der zuerst
geöffneten datei, das menü für die anderen nicht mehr verfügbar ist.


Das ist auch okay so, denn wenn die Datei zu ist, dann ist auch der
Code nicht mehr da deine OnAction-Makro's sind ja in dieser Datei.

Ein Menü ohne Code ist nutzlos.

hat da jemand eine idee?


Schreib das ganze als Add-In, der Code bleibt solange geladen wie das
Add-In geladen ist und das Menü bleibt auch da.

Andreas.

Ähnliche fragen