Ich habe einen eigene Menüleiste in der ich nun aber gerne
zu einzelnen Punkten Popup-Menüs haben möchte.
Der Code:
Set cb = Application.CommandBars.Add(name:="Liste", _
temporary:=True, Position:=msoBarTop)
On Error GoTo 0
If Application.CommandBars("Liste").Visible = False Then
cb.Visible = True
For I = 1 To 11
Set CBC = cb.Controls.Add(Type:=msoControlButton)
With CBC
.Width = 50 ' Breite der Schalter
.Style = msoButtonCaption ' Text auf Schaltfläche
Select Case I
Case 1
.Caption = "Startseite"
.OnAction = "Start"
.TooltipText = "zurück zur Startseite"
Case 2
.Caption = "Standard Geräte"
.OnAction = "Startseite_1"
.TooltipText = "Seriengeräte auswählen"
End Select
End With
Next I
End If
Wie kann ich nun unter Startseite einen Popup erzeugen.
Um Hilfestellung bin ich Dankbar.
Gruss Jörg