Modul per drog down Menü starten
30.07.2007 08:32:23
Michael
shchreibe gerade an einem Programm, das im Prinzip schon fertig ist, aber sozusagen fehlt ihm der letzte Schliff. Meine unterprogramme sind fertig, und ich habe auch ein drop down Menü, habe gerade das letzte Programm fertiggestellt, aber ich kann es nicht einfach über einen Call Befehl aufrufen, denn ich brauche das ganze Modul wegen der globalen Variablen, habe den Code verwendent den ich hier im Forum gefunden habe:
Sub NewMenue()
Dim oCmdBar As CommandBar
Dim oPopUp As CommandBarPopup
Dim oCmdBtn As CommandBarButton
Dim datDay As Date
Dim i As Integer
Dim strtemp1 As String
Dim strsubnamearray(1 To 3) As String
strsubnamearray(1) = "Leedframe_visulization"
strsubnamearray(2) = "yield_summary"
Call DeleteMenueBar
Set oCmdBar = Application.CommandBars.Add( _
"MyCommandBar", msoBarTop, False, True)
Set oPopUp = oCmdBar.Controls.Add(msoControlPopup)
oPopUp.Caption = "Analyzer"
For i = 1 To 2
If i = 1 Then
strtemp1 = strsubnamearray(i)
ElseIf i = 2 Then
strtemp1 = strsubnamearray(i)
End If
Set oCmdBtn = oPopUp.Controls.Add
With oCmdBtn
.Caption = strtemp1
.OnAction = strsubnamearray(i)
.Style = msoButtonCaption
End With
Next i
Set oPopUp = oCmdBar.Controls.Add(msoControlPopup)
oCmdBar.Visible = True
End Sub
aber anstelle von leedframe_visulization sollte das Prg new_leedfr_vis gerufen werden, dazu muss aber das ganze Modul geladen werden
Bitte um schnelle Antwort; Danke im Vorraaus
Grüße Michael