自定义菜单customUI-"checkbox "怎么用？请教

gchao15

word 自定义菜单customUI-导航窗格checkbox 打勾-显示导航窗体。
1、当用户取消勾选 Checkbox 时，会关闭导航窗格。
2、手动关闭导航窗格， Checkbox 取消勾选。
请问第2条如何实现，word自带的--视图--导航窗格可以。
------------------------------------------------------------------菜单程序

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
        <ribbon startFromScratch="false">
                <tabs>
                        <tab id="eee" label="eeee">
                                <group id="dd" label="www">
                                <checkBox id="ToggleNavigationPane" label="导航窗格" getPressed="GetPressed" screentip="显示或隐藏Word导航窗格"/>
                                       </group>
                        </tab>
                </tabs>
        </ribbon>
</customUI>
-------------------------------------------------------------------------------------------VBA程序
Option Explicit
' 这是用于存储复选框状态的变量
Private isChecked As Boolean
' 当Ribbon加载时调用的函数
Sub RibbonLoaded(ribbon As IRibbonUI)
    ' 初始化复选框状态
   UpdateCheckBoxStateEnd Sub

' 获取复选框状态的回调函数
Sub GetPressed(control As IRibbonControl, ByRef returnedVal)
    returnedVal = isChecked
End Sub

' 处理复选框点击事件的回调函数
Sub ToggleNavigationPane(control As IRibbonControl, pressed As Boolean)
    ' 切换复选框状态
   isChecked = pressed
End Sub

gchao15

实在没搞定，只有借用WORD 本身的命令了
<checkBox idMso="NavigationPaneShowHide"/>