Kontextmenü

Hallo
Ich hab ein Kontextmenü erstellt. Jetzt wollte ich wissen ob es auch Sonderzeichen als Icon gibt. Oder gibt es eine Liste die ich aufrufen kann wo alle Menüicons mit Nummerbezeichnung drin sind.
Mfg Micha

Option Explicit
Public bChangeLogged As Boolean
Private Sub Workbook_Activate()
If ActiveSheet.Name = "Tabelle1" Then
'Parameter: "Menüenintrag1,Menüeintrag2,...", "Zelleintrag1,Zelleintrag2,...", "Menüicon1,Menüicon2,..."
'Menüicon-Zahlen: 0=70 & 9=79 'Menüicon-Buchstaben: A=80 & Z=105
kontext "Ä,Ö,Ü,", "ä,ö,ü,", "1,2,3"
End If
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars("Cell").Reset

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "Tabelle1" Then
'Parameter: "Menüenintrag1,Menüeintrag2,...", "Zelleintrag1,Zelleintrag2,...", "Menüicon1,Menüicon2,..."
'Menüicon-Zahlen: 0=70 & 9=79 'Menüicon-Buchstaben: A=80 & Z=105
kontext "Ä,Ö,Ü,", "ä,ö,ü,", "1,2,3"

'Tabelle Ausblenden
'If Sh.Index Mod 25 Then 'Anzahl Tabellen +2
'If Not Sh.Next Is Nothing Then Sh.Next.Visible = False

'End If
End If

End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name = "Tabelle1" _
Then Application.CommandBars("Cell").Reset
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kontextmenü

04.07.2023 09:29:39

MCO

AW: Kontextmenü

05.07.2023 15:09:07

Micha

Moin, Micha!

Tip vorab: wenn du Code postest, dann schreib ihn zwischen den generierten Text, den du mit dem Knopf "Code

" erzeugst.

Zur Frage:
Ich hab mich mit Deinem Code nicht beschäftigt, stelle dir aber gern meinen zur Verfügung.
Hier wird im Menüpunkt Addins 3 Menüs erzeugt, die zeigen welche Icons welche ID haben. Das sollte dir schon helfen...
Sub Testmenü()
   
    On Error Resume Next
    For i = 0 To 2
        Application.CommandBars.ActiveMenuBar.Controls("Icons " & i + 1).Delete
        Menüpunkt_anlegen 0, "Icons " & i + 1, 32, 0, 34, (32 * 34) * i
    Next i
End Sub


Sub Menüpunkt_anlegen(Gruppe_neu As Boolean, Benenn As String, Anz_Menue As Long, Trenner As Boolean, Anz_Punkte As Long, Beginn_bei As Long)

    

    With Application.CommandBars.ActiveMenuBar.Controls.Add(Type:=msoControlPopup)

        .BeginGroup = Gruppe_neu

        .Caption = Benenn

        

        x = Beginn_bei

        For i = 1 To Anz_Menue

            With .Controls.Add(Type:=msoControlPopup)

                .BeginGroup = Trenner 'Trennlinie

                .Caption = "Menüpunkt " & i

                

                y = x

                Do Until x = y + Anz_Punkte

                    With .Controls.Add 'Untermenüpunkte

                        .FaceId = x

                        .Caption = "Untermenü " & x & " :" & .id

                        '.OnAction = "UntermenueA"

                    End With

                    x = x + 1

                Loop

            End With

        Next i

        

    End With

End Sub
Gruß, MCO

Beliebteste Forumthreads (12 Monate)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread