Application.SetOption "Size of MRU File List", 0 じゃないんだよな。そもそも、Size of MRU File List 使えてないみたいだし。
[クライアントの設定]→[表示]→[最近使用した...]の設定は、
キー名:HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\File MRU
名前:Max Display
で、backstageから投入するのは、
名前:Max Quick Access Display
に入ってるしな。SetOptionメソッドで設定する方法が不明だから、そのうちにでも。
で、本題のショートカットの件。
キー名:HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\File MRU
名前:Quick Access Display
に情報がある。 レジストリを直接いじればなんとか。
Sub setQuickAccessDisplay() Dim kHnd As LongPtr, lngvalue As Long, lngrtn As Long lngvalue = 0 '0:非表示 1:表示 Const strSubKey = "Software\Microsoft\Office\14.0\Access\File MRU" Const strName = "Quick Access Display" lngrtn = RegOpenKeyEx(HKEY_CURRENT_USER, strSubKey, 0, KEY_SET_VALUE, kHnd) If lngrtn = ERROR_SUCCESS Then RegSetValueEx kHnd, strName, 0, REG_DWORD, lngvalue, Len(lngvalue) End If RegCloseKey kHnd End Subもしくは、
[カレントデータベース]→[リボンとツールバーのオプション]→[すべてのメニューを表示する]で非表示にする。だけど、この場合、セパレータが残る。
CustomUI/backstage要素内で制御する方法はなさそう。
0 件のコメント:
コメントを投稿