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 件のコメント:
コメントを投稿