アクセス２００７です。
フォームのプロパティで「自動中央寄せ」を「はい」にして
Private Sub Form_Load()
DoCmd.RunCommand 10
DoCmd.ShowToolbar "Ribbon", acToolbarNo 'リボンを非表示にする
Application.CommandBars("Status Bar").Visible = False 'ステータスバーを非表示にする
'ナビゲーションウィンドウを表示しない
DoCmd.SelectObject acForm, "", True
DoCmd.RunCommand acCmdWindowHide
End Sub
をすると、真ん中に表示されません。
ナビゲーションウィンドウ分だけ左に寄ってしまいます。
Private Sub Form_Load()
'ナビゲーションウィンドウを表示しない
DoCmd.SelectObject acForm, "", True
DoCmd.RunCommand acCmdWindowHide
DoCmd.RunCommand 10
DoCmd.ShowToolbar "Ribbon", acToolbarNo 'リボンを非表示にする
Application.CommandBars("Status Bar").Visible = False 'ステータスバーを非表示にする
End Sub
のように順番を前後させても結果は同じです。
真ん中表示だけでなく、アプリケーションを最大化しつつ
リボン・ステータスバーを非表示に事は不可能でしょうか？
↧