
Accessのウインドウサイズの固定について回答お願いします。
Accessファイルを開いたときに、メインメニューのフォームが開くのですが、これのオープンイベントにウインドウサイズの変更を入れたいと思っています。
Windows Apiというものを呼び出すコードをモジュールにも記入すると思うのですが、よく分からず困っています。
変更したいのは、ウインドウサイズのみなので、位置は必要ありません。
出来れば、高さや下位置等の数字を任意に変更すれば使えるコードを教えてもらえれば有難いです。
後、メインメニューのオープンイベントにサイズ倍率を変更するコード
Private Sub Form_Open(Cancel As Integer)
FormSizeChange Me, 0.9
End Sub
がすでに入っていますのでこれに追加していただきたいです。
よろしくお願いします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
前回回答のリンク先の「リスト 2」に
GetWindowRect Application.hWndAccessApp, rctSize
とあります。
Application.hWndAccessApp でAccessのハンドルを指定していますので
ここをデスクトップにします。
サンプルファイルのsample2007(かな?)の標準モジュールModule1に
下記1行を追加します。
Public Declare Function GetDesktopWindow Lib "user32" () As Long
フォームのオープン時には
Private Sub Form_Open(Cancel As Integer)
Dim rctSize As RECT
Dim hWnd As Long
Dim retVal As Long
Dim mWidth as long,mHeight as long
hWnd = GetDesktopWindow()
retVal = GetWindowRect(hWnd, rctSize)
mWidth = rctsize.right
mHeight = rctsize.bottom
msgbox mwidth & "-" & mHeight
MoveWindow Application.hWndAccessApp, 10, 50, 900, 800, True
End Sub
でモニターの左右・天地が分かりますので計算して
MoveWindowで指定すれば良いです。
ついでの継ぎ足しは・・・止めましょね。
マナーに欠けるということで嫌われます。
PS.
複数モニターを使用している場合は不明です。
あとユーザーによっては
「端に置きたいのに何故いつもど真ん中に?邪魔!」という場合もあり。
私からは以上です。
No.1
- 回答日時:
こちらをどうぞ。
『Accessウィンドウの位置や大きさを取得・変更する』
http://www.happy2-island.com/access/gogo03/capte …
説明も分かりやすいと思います。
「サンプルダウンロード」にファイルも用意されてます。
あとは
MoveWindow Application.hWndAccessApp, 10, 50, 900, 800, True
などと追加するだけです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
Accessのフォームで開く時のウィンドウサイズを指定する
Access(アクセス)
-
起動時のフォームの大きさ?
Access(アクセス)
-
AccessのFormの設定で、開いた時に必ず最大化で表示する方法が分からず困っています
Access(アクセス)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
ACCESSでfilterとorderbyについて
その他(データベース)
-
6
新規レコード行を非表示にしたい
Access(アクセス)
-
7
フォームのサイズが指定した値にならない
Excel(エクセル)
-
8
フォームの高さを数値で指定したいのですが
Excel(エクセル)
-
9
ACCESS フォームのサイズ調整
サーバー
-
10
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
11
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
12
角丸四角形を描きたい
Excel(エクセル)
-
13
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
14
Access ウィンドウサイズの変更
その他(データベース)
-
15
Accessのコマンドボタンの立体化について
Access(アクセス)
-
16
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
17
Access 起動時、ウィンドウを最大化したいです
Access(アクセス)
-
18
Accessのフォームのみ表示させたい
Access(アクセス)
-
19
Access 別フォームへの再クエリ(更新)がしたい。
その他(データベース)
-
20
Access2010 「演算子がありません」エラー
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
動かなくなってしまった古いVBA...
-
excel マクロ PDF化の際のエラ...
-
ffftpでファイル取得が0バイト...
-
vbaサブフォルダーをワイルドカ...
-
「エクセルファイルが開いてい...
-
AccessからOLEオブジェクト型の...
-
【VBAマクロ初心者】Excel VBA...
-
VBAでのファイル名と更新日(作...
-
ファイル結合について
-
VB.Netソリューションでフォー...
-
「AccessViolationException」...
-
VBAでCSVファイルを読み込もう...
-
VBAでフォルダ内のhtmlファイル...
-
サブフォルダ含むフォルダ内の...
-
vbs ブック共有を解除
-
エクセルのプロパティーでセキ...
-
エクセルで複数のコメントのサ...
-
Wordで差込印刷した後に別々の...
-
エクセルvbaでdocuworksprinter...
-
カンマ区切りのCSVファイルから...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
動かなくなってしまった古いVBA...
-
AccessからOLEオブジェクト型の...
-
VBAでフォルダ内のhtmlファイル...
-
VB6でUTF-8ファイルの読取りを
-
サブフォルダ含むフォルダ内の...
-
EXCEL VBAを使ったファイル解析...
-
webブラウザからローカルファイ...
-
「エクセルファイルが開いてい...
-
タイムスタンプの更新の方法2
-
複数のワークブックのVBAを変更...
-
vbaサブフォルダーをワイルドカ...
-
ffftpでファイル取得が0バイト...
-
VBAでCSVファイルを読み込もう...
-
フォルダ階層・ファイル名・ペ...
-
【ACCESS VBA】アクセスからデ...
-
ExcelVBA 文字コード変換
-
excel マクロ PDF化の際のエラ...
-
FileDialog オブジェクトでファ...
-
Wordのプロパティ・総ページ数...
-
Accessのウインドウサイズの固定
おすすめ情報
有難うございます。
質問の継ぎ足しなのですが、10, 50, 900, 800 の位置とサイズの指定をオープンイベントに記入し無事に出来たのですが、この【10, 50】のウインドウ位置をコードから無くしてフリーで位置調整出来るようにしたいのですが可能でしょうか?
運用する際に、モニターサイズが違うパソコンがあるので、画面の小さいパソコン基準で画面サイズを指定し、大画面のパソコンではその指定したサイズで表示し画面をモニターのセンターに手動で持っていきたいので。
よろしくお願いします。