Kontextmenu erweitern
Franz
Könntet ihr mir helfen? Nachstehend ein Code-Schnipsel:
Sub KM
For iRow = 1 To UBound(arrItems)
Set oBtn = oBar.Controls.Add
With oBtn
oBtn.Caption = arrItems(iRow)
.OnAction = "ContextMenu_work"
.Style = msoButtonCaption
End With
Next iRow
oBar.ShowPopup
End Sub
Wie soll ich dies ergänzen um z.B. einen X-beliebigen Eintrag bereits zu markieren (z.B. der 3.)?
Grüße
Franz D.
Anzeige