hatena
hatena
2019/12/04 (水) 16:48:23
OS側で120%の設定がされていても、Accessのみ100%表示にできる方法というのはないでしょうか?
たぶんないと思います。
この方法ですと、全てのフォームにこの機能を持たせようと思うと、全てのフォームにこの設定をしなければなりませんか?
そうなりますね。
下記のような関数を作成しておいて、それを一度だけ実行すればOKです。
Public Sub AllFormsSizeCange()
Dim Frm As Access.AccessObject
For Each Frm In Application.CurrentProject.AllForms
DoCmd.OpenForm Frm.Name, acDesign 'デザインビューで開く
Call FormSizeChange(Forms(Frm.Name), 0.8) 'サイズ変更
DoCmd.Close acForm, Frm.Name, acSaveYes '保存して閉じる
Next Frm
End Sub
念のためにバッグアップを取ってから実行してください。
通報 ...