03.09.2018, 09:10
Hallo liebe Community,
Ich habe eine CommandBar in einer Uf als Menüleiste, soweit so gut.
Ich möchte aber gerne die Hintergrundfarbe ändern von dem Popup Menü.
Hier mal mein code:
Ich dachte an eine API lösung aber Ich weiß nicht wie.
hoffe Ihr könnt mir helfen.
Lg Flo
Ich habe eine CommandBar in einer Uf als Menüleiste, soweit so gut.
Ich möchte aber gerne die Hintergrundfarbe ändern von dem Popup Menü.
Hier mal mein code:
Code:
Public Sub DoMenu(ByVal ctl As Object)
Dim i As Integer
On Error Resume Next
Set Menu = Application.CommandBars.Add(Position:=msoBarPopup, Temporary:=True)
For i = LBound(arrSubMenu) To UBound(arrSubMenu, 2)
If VBA.Mid(arrSubMenu(0, i), 4, InStr(1, arrSubMenu(0, i), "_") - 4) = ctl.tag Then
If arrSubMenu(4, i) = "" Then arrSubMenu(4, i) = 0
DoSubMenu arrSubMenu(0, i), CByte(arrSubMenu(1, i)), arrSubMenu(2, i), arrSubMenu(3, i), CInt(arrSubMenu(4, i)), CBool(arrSubMenu(5, i))
End If
Next i
Menu.ShowPopup (UF.Left * 4 / 3 + 3) + (ctl.Left * 4 / 3), (UF.Top * 4 / 3) + (ctl.Top + ctl.Height) * 4 / 3 * 2.1
Set ctl = Nothing
Set Menu = Nothing
End Sub
hoffe Ihr könnt mir helfen.
Lg Flo