幅を取得するアクセス2007のナビゲーションペイン

Question

起動時に、ナビゲーションペイン（画面の左側）が開いているかどうかを確認して、キー押しをシミュレートして最小化できます。私は方法CommandBars("Ribbon").Heightを使ってリボン（画面の最上部）でそれを行うことができました。

ナビゲーションペインでも同じことをしたいと思います。 CommandBars(index).Widthメソッドがありますので、可能なはずです。

すべてのコントロールバーの名前をすべて取得しようとしましたが、正しいものを見つけることができません。私はまた、名前は私がペインの開閉の両方でこのコードを実行しましたが、私は幅の違いを見つけることができたhaventは、このコードに

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

を使用して、「NAV」を含むすべてのcontrolsbarsの幅を比較してみました。

誰もが、Access 2007のナビゲーションペインの正しい幅を知っていますか？

Answer 1

このオプションがあります：SendKeys ("{F11}")です。唯一のキャッチは、既に開いているかどうかを知ることです。

これは、いくつかの作品ではなく、他の人（私のマシン...アクセス2016で動作します）：

DoCmd.NavigateTo "acNavigationCategoryObjectType" 
DoCmd.Minimize 

より多くの議論がここにあります：social.msdn