Simple Slider

Hi,

Here's another example which works in 11.2.1 ('cb' is the CommandBars control):

    Dim oRibbonBar As RibbonBar
    Dim oTab       As RibbonTab
    Dim oGrp       As RibbonGroup
    Dim oSlider    As CommandBarSlider

    Set oRibbonBar = cb.AddRibbonBar("Main")
    Set oTab = oRibbonBar.InsertTab(99, "Test")
   
    Set oGrp = oTab.Groups.AddGroup("Test Group", 999)
    With oGrp
        Set oSlider = cb.CreateCommandBarControl("CXTPControlSlider")
        oSlider.Min = 0
        oSlider.Max = 10
        oSlider.Pos = 5 'this is the current value
        oSlider.Id = 9999 'give it an ID
        .AddControl oSlider
    End With



Oleg, I can't find a way to add tooltip or caption for the slider. In the end I added a Label control, enabled actions and updated caption as necessary.

Can slider have tooltip and caption?