Vba 获取宽度Access 2007导航窗格

启动时，我想检查导航窗格（屏幕左侧）是否打开，以便通过模拟按键将其最小化。我通过使用方法

commandbar（“ribbon”）.Height

为功能区（屏幕顶部）实现了这一点

我想对导航窗格执行相同的操作。有一个

commandbar（index.Width

方法，所以我认为这应该是可能的

我试图找到所有控制栏的所有名称，但找不到正确的名称。我还尝试使用此代码比较名称中包含“nav”的所有控件栏的宽度

For Each cb In CommandBars
    If (InStr(cb.Name, "nav")) Then
        Debug.Print cb.Name & vbTab & cb.Width
    End If
Next cb

我在打开和关闭窗格的情况下运行了这段代码，但在宽度上没有发现任何差异

---

有人知道我是如何在Access 2007中获得正确宽度的导航窗格的吗？

有一个选项：

SendKeys（“{F11}”）

。唯一的问题是知道它是否已经打开了

这适用于某些人，而不是其他人（适用于我的机器…access 2016）：

---

这里有更多的讨论：

您愿意隐藏它吗？

DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.Minimize