Set GroupStyles = TabWrite.Groups.AddGroup("&Styles", ID_GROUP_STYLES)
    Dim GalleryStyles As CommandBarGallery
       
   
    Set ItemsStyles = CommandBars.CreateGalleryItems(ID_GALLERY_STYLES)
    ItemsStyles.Icons = ImageManagerGalleryStyles.Icons
    ItemsStyles.ItemWidth = 72
    ItemsStyles.ItemHeight = 56
   
    For i = 1 To 16
        ItemsStyles.AddItem i, ""
    Next i
   
    Set GalleryStyles = GroupStyles.Add(xtpControlGallery, ID_GALLERY_STYLES, "Styles")
    GalleryStyles.Width = 235
    GalleryStyles.SetItemsMargin 0, 1, 0, 1
    GalleryStyles.ShowLabels = False
    GalleryStyles.ShowBorders = True
    Set GalleryStyles.Items = ItemsStyles
    GalleryStyles.CheckedItem = 2 ' this does not work 
   
    Dim GalleryPopupBar As CommandBar
    Set GalleryPopupBar = CommandBars.Add("Styles", xtpBarPopup)
   
    GalleryStyles.CommandBar = GalleryPopupBar
   
    Set GalleryStyles = GalleryPopupBar.Controls.Add(xtpControlGallery, ID_GALLERY_STYLES, "Styles")
    GalleryStyles.Width = 235 + 72
    GalleryStyles.Height = 56 * 3 + 2

Hi,

 

Have to work. Think you modified our sample which is reset CheckedItem  in Update handler.