获取宽度Access 2007导航窗格

Question

启动时我想检查导航窗格（屏幕左侧）是否打开，这样我就可以通过模拟按键来最小化它。我设法使用方法CommandBars("Ribbon").Height为功能区（屏幕顶部）执行此操作。

我想为导航窗格做同样的事情。有一种CommandBars(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中获得正确的导航窗格宽度？

Answer 1

有这个选项：SendKeys ("{F11}")。唯一的问题是知道它是否已经打开。

这适用于某些人，而非其他人（适用于我的机器......访问2016）：

DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.Minimize

这里有更多讨论：social.msdn