How Do I add Descriptions to Gallery Items

 

I have tried all sorts of combinations with the gallery and gallery items styles but for some reason i can;t get it to work.

 

Thanks

Lee

 

Thanks

Lee

 

Dim cbp As CommandBarPopup, cbg As CommandBarGallery, cbgis As CommandBarGalleryItems, cbgi As CommandBarGalleryItem
With CommandBars1
    Set cbp = .ActiveMenuBar.Controls.Add(xtpControlPopup, 1, "Reports")
        Set cbg = cbp.CommandBar.Controls.Add(xtpControlGallery, 2, "Gallery 1")
            cbg.Style = xtpButtonCaptionAndDescription
            Set cbgis = .CreateGalleryItems(1)
                cbgis.ItemWidth = 0
                Set cbgi = cbgis.AddItem(1, "Gallery Item 1")
                    cbgi.DescriptionText = "This is the description text"
                Set cbgi = cbgis.AddItem(1, "Gallery Item 2")
                Set cbgi = cbgis.AddItem(1, "Gallery Item 3")
   
        Set cbg.Items = cbgis
End With