Sub CreateMenuFaceID()

Dim maxGroup

Dim maxCount

Dim N

Dim J

Dim I

Dim MenuItem2

Dim II

    ' создание меню ЗНАЧКИ с образцами кнопок панели инструментов

    Dim NewMenu As CommandBarPopup, MenuItem As CommandBarControl, Submenuitem As CommandBarButton

    

    Call DeleteMenuFaceID

    Set NewMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)

    NewMenu.Caption = "Значки": maxCount = 40: maxGroup = 8: N = maxGroup * maxCount

    For J = 0 To 20

        Set MenuItem = NewMenu.Controls.Add(Type:=msoControlPopup)

        With MenuItem: .Caption = J * N + 1 & " - " & (J + 1) * N: .BeginGroup = True:: End With

 

        For I = 0 To maxGroup - 1

            Set MenuItem2 = MenuItem.Controls.Add(Type:=msoControlPopup)

            With MenuItem2: .Caption = 1 + J * N + maxCount * I & " - " & J * N + maxCount * (I + 1): End With

            For II = J * N + 1 + maxCount * I To J * N + maxCount * (I + 1)

                Set Submenuitem = MenuItem2.Controls.Add(Type:=msoControlButton): DoEvents

                With Submenuitem: .Caption = "FaceId = " & II: .FaceId = II: End With

            Next II

        Next I

    Next J

End Sub