XML question with check box

[akramer08]

Ive been working with XML a bit lately and I have created a custom tab in excel 2007. I have two check boxes on that tab and I cant figure out how to have one automatically checked when I open the workbook. I dont know how to put XML text in a post so I just put it in a code box. If anyone can help that would be amazing.

<group id="group3" label="Display">
<checkBox id="myButton3" label="Show Volume" onAction="CallControl" /> 
<checkBox id="myButton4" label="Show Skids" onAction="CallControl2" /> 
</group>

 

[akramer08]

Nevermind that didnt work. Here is my current XML text

<group id="group3" label="Display">
<checkBox id="myButton3" label="Show Volume" onAction="CallControl" />
<checkBox id="myButton4" label="Show Skids" onAction="CallControl2" />
</group>

 

[akramer08]

wow that didnt work either. Well if anyone has any ideas it would be appreciated.

 

[Andrew Poulsom]

Try surrounding your XML with HTML tags.

 

[akramer08]

Lets see if this works. If it shows up that is the text I have in the XML and the code is from a standard module in the workbook. It works perfectly fine in doing what it needs to do. I just dont know how to have the one with the button id "myButton3" to automatically be checked when the workbook opens.

<group id="group3" label="Display"><checkBox id="myButton3" label="Show Volume" onAction="CallControl" /> <checkBox id="myButton4" label="Show Skids" onAction="CallControl2" /> </group>

Sub CallControl(control As IRibbonControl, pressed As Boolean)


    Select Case pressed
    Case True
        PressedState = True
' Show Volume
Application.ScreenUpdating = False
    Columns("I:L").EntireColumn.Hidden = False
    Columns("AK:AN").EntireColumn.Hidden = False
    Columns("AA:AA").EntireColumn.Hidden = False
    Columns("BC:BC").EntireColumn.Hidden = False
Application.ScreenUpdating = True


    Case False
        PressedState = False
' Hide Volume
Application.ScreenUpdating = False
    Columns("I:L").EntireColumn.Hidden = True
    Columns("AK:AN").EntireColumn.Hidden = True
    Columns("AA:AA").EntireColumn.Hidden = True
    Columns("BC:BC").EntireColumn.Hidden = True
Application.ScreenUpdating = True


    End Select
End Sub


Sub CallControl2(control As IRibbonControl, pressed As Boolean)


    Select Case pressed
    Case True
        PressedState = True
' Show Skids
Application.ScreenUpdating = False
    Columns("E:H").EntireColumn.Hidden = False
    Columns("N:Q").EntireColumn.Hidden = False
    Columns("Z:Z").EntireColumn.Hidden = False
    Columns("AG:AJ").EntireColumn.Hidden = False
    Columns("AP:AS").EntireColumn.Hidden = False
    Columns("BB:BB").EntireColumn.Hidden = False
Application.ScreenUpdating = True


    Case False
        PressedState = False
' Hide Skids
Application.ScreenUpdating = False
    Columns("E:H").EntireColumn.Hidden = True
    Columns("N:Q").EntireColumn.Hidden = True
    Columns("AG:AJ").EntireColumn.Hidden = True
    Columns("AP:AS").EntireColumn.Hidden = True
Application.ScreenUpdating = True


    End Select


End Sub

 

[Andrew Poulsom]

Maybe this will help you:

http://www.excelguru.ca/blog/2006/11/29/modifying-the-ribbon-part-6/

 

[akramer08]

Works great Andrew. That is a pretty informative page and really helps explain what certain things do and why.