获取宽度Access 2007导航窗格

Question

在启动时，我想检查导航窗格（屏幕左侧）是否已打开，以便通过模拟按键将其最小化。我设法通过使用方法CommandBars("Ribbon").Height来完成功能区（屏幕顶部）。

我想为导航窗格做同样的事情。有一个CommandBars(index).Width方法，所以我认为它应该是可能的。

我试图获取所有控制条的所有名称，但我找不到正确的名称。我也试图比较这些名字中含有“导航”使用此代码

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

我跑这个代码与两个窗格中打开和关闭，但我还没有能够找到在宽度任何差异都controlsbars的宽度。

有谁知道我如何得到Access 2007中导航窗格的正确宽度？

Answer 1

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

这适用于一些，而不是别人（我的机器...访问2016上的作品）：

DoCmd.NavigateTo "acNavigationCategoryObjectType" 
DoCmd.Minimize 

这里有更多的讨论：social.msdn