![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.1ベストアンサー
- 回答日時:
「autoexec」という名前のマクロを作成して下さい。
(必ずこの名前である必要があります)
そのマクロで、「アクション」に「最大化」を指定して保存すれば、起動時に内側ウィンドウが最大化されます。
また、「アクション」に「コマンドの実行」を指定して、画面左下の「コマンド」欄に「最大化 (アプリケーション)」を設定すれば、外側ウィンドウが最大化されます。
「マクロ名」列(デフォルト設定では非表示)に何も入力しない限り、これらや他のアクションを連続して行うこともできます。
No.3
- 回答日時:
>外側
これは、アプリケーション自体を大きくって事ですか?
それであれば、VBAです。
起動時に表示を設定しているフォームの「読み込み時」にイベントプロシージャを指定し、以下のコードを利用することで、フォームだけではなく、アプリケーションも最大化することができます。
Option Compare Database
Option Explicit
Private Declare Function ShowWindowAsync Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
'読み込み時イベント
Private Sub Form_Load()
Dim lngWnd_Form As Long
Dim lngWnd_App As Long
'フォームのハンドル
lngWnd_Form = Me.hWnd
'アプリケーションのハンドル
lngWnd_App = 関数_最高の親取得(lngWnd_Form)
'アプリケーションを最大化
Call 関数_最大化(lngWnd_App)
'フォームの最大化(ここはDoCmd.Maximizeでもいい)
Call 関数_最大化(lngWnd_Form)
End Sub
Private Sub 関数_最大化(ByVal inWnd As Long)
Const SW_SHOWMAXIMIZED = 3
Call ShowWindowAsync(inWnd, SW_SHOWMAXIMIZED)
End Sub
Private Function 関数_最高の親取得(ByVal inWnd As Long) As Long
Dim lngWnd As Long
Dim lngParent As Long
lngWnd = inWnd
Do
lngParent = GetParent(lngWnd)
If lngParent = 0 Then
Exit Do
End If
lngWnd = lngParent
Loop
関数_最高の親取得 = lngWnd
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 起動中のアプリ、ソフトの取得 3 2022/12/28 11:13
- JavaScript [Java] Edgeでのアドレスバー非表示について 3 2022/04/20 17:51
- オンラインゲーム pc版fall guysでプロコンが反応しなくなりました。windowsです。プロコンをusb接続す 1 2023/02/14 17:33
- Windows 10 拡大鏡の音声読み上げ機能が機能しません 2 2023/02/23 22:34
- Visual Basic(VBA) Vba LongPtrについて教えてください 2 2022/08/19 11:14
- その他(ソフトウェア) Figma 1 2023/06/23 14:22
- Windows 10 2つのウィンドウ選択時の表示について 10 2023/07/25 08:48
- Outlook(アウトルック) outlook メモリ不足 1 2022/05/31 10:16
- Excel(エクセル) WPSスプレッドシートの起動オプションの設定は可能ですか? 1 2023/02/11 19:49
- その他(プログラミング・Web制作) pythonで、tkinterとpillowの組み合わせ 2 2022/08/16 17:42
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
AccessのFormの設定で、開いた時に必ず最大化で表示する方法が分からず困っています
Access(アクセス)
-
ACCESSでタイトルバーを非表示にする方法
Access(アクセス)
-
AccessからExcelのファイルを起動する
その他(データベース)
-
-
4
access アプリケーションの最大化をしたい
Access(アクセス)
-
5
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
6
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
7
VBA プロシージャの名前の取得
その他(Microsoft Office)
-
8
AccessからExcel最小化
その他(プログラミング・Web制作)
-
9
Access VBA を利用して、フォルダ内のファイルの名称を変更したい
Access(アクセス)
-
10
新規レコード行を非表示にしたい
Access(アクセス)
-
11
accessで重複を防ぎたい
Access(アクセス)
-
12
アクセスのフォームで、文字を中央揃えにしたい
Access(アクセス)
-
13
エクセルVBAでアクセスファイルを開く方法
Access(アクセス)
-
14
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
15
Returnに対するGoSubがありません
Access(アクセス)
-
16
ACCESS フォームのサイズ調整
サーバー
-
17
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
18
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
19
起動時のフォームの大きさ?
Access(アクセス)
-
20
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10 エクスプローラー表...
-
Excelのウィンドウが少し小さく、ズ...
-
VLCメディアプレイヤーでの拡大...
-
AccessのFormの設定で、開いた...
-
サクラエディタで、分割したウ...
-
新しいウィンドウで開くときウ...
-
最小化からの再表示は? Photos...
-
draftsight コマンドウィンドウ...
-
EXCELのウィンドウがタスクバー...
-
エクセル 表示画面がおかしい
-
Notesを起動すると「ウィンドウ...
-
Google Chrome で画面が小さく...
-
Access 起動時、ウィンドウを...
-
VisualStudioデザイン画面
-
画面のサイズを「元のサイズ」...
-
ウィンドウサイズの固定方法
-
Firefoxで、勝手にブラウザのウ...
-
画面上に出てくるものが邪魔で...
-
gimpの表示を初期状態に戻したい!
-
iTuneのウィンドウが出なくなり...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10 エクスプローラー表...
-
Excelのウィンドウが少し小さく、ズ...
-
VLCメディアプレイヤーでの拡大...
-
AccessのFormの設定で、開いた...
-
サクラエディタで、分割したウ...
-
UWSC 非アクティブウィンドウ...
-
ウィンドウの縮小拡大ができま...
-
ウィンドウの一番下が見られない
-
インターネットエクスプローラ...
-
draftsight コマンドウィンドウ...
-
Access 起動時、ウィンドウを...
-
Google Chrome で画面が小さく...
-
新しいウィンドウで開くときウ...
-
入力した文字を電光掲示板のよ...
-
画面のサイズを「元のサイズ」...
-
リンクを『新しいウィンドウで...
-
Google Chromeのウィンドウサイ...
-
ウィンドウ閉じるボタンが隠れ...
-
最小化からの再表示は? Photos...
-
EXCELのウィンドウがタスクバー...
おすすめ情報