Codejock Developer Community : Changing RibbonBar Captions

Changing RibbonBar Captions : Changing to Dim ControlRibbonButton...

Wed, 22 Mar 2006 15:59:55 +0000

Author: jcollier
Subject: 3825
Posted: 22 March 2006 at 3:59pm

Changing to Dim ControlRibbonButton as CommandBarControl worked.

My contants were fine, didn't have to change anything.

Thanks!

Changing RibbonBar Captions : Hmm,I'm not sure why you...

Wed, 22 Mar 2006 07:58:27 +0000

Author: SuperMario
Subject: 3825
Posted: 22 March 2006 at 7:58am

Hmm,
I'm not sure why you don't get type mismatch.

Try:
Dim ControlRibbonButton As CommandBarControl

Changing RibbonBar Captions : also replace Dim ControlRibbonButton...

Wed, 22 Mar 2006 07:57:42 +0000

Author: Oleg
Subject: 3825
Posted: 22 March 2006 at 7:57am

also replace

Dim ControlRibbonButton As CommandBarPopup

Dim ControlRibbonButton As CommandBarControl

Changing RibbonBar Captions : Hello, Just tried to change our...

Wed, 22 Mar 2006 07:56:28 +0000

Author: Oleg
Subject: 3825
Posted: 22 March 2006 at 7:56am

Hello,

Just tried to change our sample and it worked as expected.

I sure the problem in ID_QUEUES and ID_INPRODUCTION - may be they are declared somewhere as private.

Declare them as

Public Const ID_QUEUES = 9

Public Const ID_INPRODUCTION = 12

try to add

Option Explicit
in the biginning of file to see if these constants are visible.

Changing RibbonBar Captions : I am trying to change the caption...

Tue, 21 Mar 2006 15:46:23 +0000

Author: jcollier
Subject: 3825
Posted: 21 March 2006 at 3:46pm

I am trying to change the caption of one of my submenus that expands down from a RibbonBar.

Can anyone help with the following code?

private sub SetUpRibbonBar
    Dim tabBatches As RibbonTab
    Dim RibbonBar As RibbonBar
    Dim GroupBatches As RibbonGroup
    Dim ControlRibbonButton As CommandBarPopup

    Set RibbonBar = CommandBars.AddRibbonBar("MainRibbon")
    Set tabBatches = RibbonBar.InsertTab(0, "Batches")
    Set GroupBatches = tabBatches.Groups.AddGroup("Batch Functions")

    Set ControlRibbonButton = GroupBatches.Add(xtpControlSplitButtonPopup, ID_CREATEBATCH, "Create")
        ControlRibbonButton.CommandBar.Controls.Add xtpControlButton, ID_CREATEBATCH, "Create Batch"
        ControlRibbonButton.CommandBar.Controls.Add xtpControlButton, 0, "Create Imageless Batch"

    GroupBatches.Add xtpControlButton, ID_CLOSEBATCH, "Close Batch"

    Set GroupBatches = tabBatches.Groups.AddGroup("Queues")
    Set ControlRibbonButton = GroupBatches.Add(xtpControlSplitButtonPopup, ID_QUEUES, "Queues")
        ControlRibbonButton.CommandBar.Controls.Add xtpControlButton, ID_INPRODUCTION, "In Production", -1, False
        ControlRibbonButton.CommandBar.Controls.Add xtpControlButton, ID_INBILLING, "In Billing", -1, False

    CommandBars.Icons = imCommandBar.Icons

    Set ControlRibbonButton = CommandBars.FindControl(xtpControlButton, ID_INPRODUCTION, , True)
    Debug.Print ControlRibbonButton.Caption   '<----Returns "Queues". I want it to return "In Production"

End Sub

ID_QUEUES = 9
ID_INPRODUCTION = 12

I'm sure it's something simple but I can't seem to get it.