title image


Smiley Re: Popup-Menü in Symbolleiste (wie muß ich das machen?)
Hallo,



hier ein Ausschnitt aus einer Applikation



Private Sub Workbook_Open()

Sheets("Verträge").Select

Application.ScreenUpdating = False

With Application.CommandBars("Worksheet Menu Bar")

For intZähler = 1 To .Controls.Count

If .Controls(intZähler).Caption = "MLE-Planung" Then Exit Sub

Next

Set newMenu = .Controls.Add(Type:=msoControlPopup, Before:=.Controls.Count - 1)

End With

newMenu.Caption = "MLE-Planung"

Set newControl = newMenu.Controls.Add(Type:=msoControlButton)

With newControl

.Caption = "Bestellungen"

.OnAction = "Best"

End With

Set newControl = newMenu.Controls.Add(Type:=msoControlButton)

With newControl

.Caption = "Meilensteinstatus"

.OnAction = "MST"

End With

Set newControl = newMenu.Controls.Add(Type:=msoControlButton)

With newControl

.Caption = "Arbeitspaket Grafik"

.OnAction = "SIV_Grafik"

End With

Set newControl = newMenu.Controls.Add(Type:=msoControlButton)

With newControl

.Caption = "Projekt Grafiken"

.OnAction = "Grafiken"

End With

Set newSubMenu = newMenu.Controls.Add(Type:=msoControlPopup)

newSubMenu.Caption = "Utilities (Peter only)"

Set newControl = newSubMenu.Controls.Add(Type:=msoControlButton)

With newControl

.Caption = "Aufnahme neues Netz"

.OnAction = "neu_Netz"

End With

End Sub




Gruß aus dem Land der Bayern Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: