Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10769 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【19983】Excelを最小化した上でのフォームの表示 コウ 04/11/22(月) 8:39 質問[未読]
【19985】Re:Excelを最小化した上でのフォームの表示 かみちゃん 04/11/22(月) 12:43 回答[未読]
【19986】Re:Excelを最小化した上でのフォームの表示 コウ 04/11/22(月) 13:53 お礼[未読]
【19983】Excelを最小化した上でのフォームの表示
質問  コウ  - 04/11/22(月) 8:39 -
引用なし
パスワード
   おはようございます。よろしくお願いします。
フォームを表示した上で、Excelの最小化を行いたいのですが、何か方法があるでしょうか?ちなみに、試したコードを以下に書きます。

(フォームが表示され、シートは最小化される。Excelは大きくなったまま)
ThisWorkbook.Windows(1).WindowState = xlMinimized

(Excelは最小化されるが、フォームも見えなくなる)
Application.WindowState = xlMinimized
【19985】Re:Excelを最小化した上でのフォームの表...
回答  かみちゃん  - 04/11/22(月) 12:43 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>フォームを表示した上で、Excelの最小化を行いたいのですが、何か方法があるでしょうか?ちなみに、試したコードを以下に書きます。

フォームのイベントに以下のようなコードを記述すればいいのではないでしょうか？

'フォームを初期化時
Private Sub UserForm_Initialize()
　Application.WindowState = xlMinimized
　AppActivate Application.Caption
End Sub

'フォーム閉じるとき
Private Sub UserForm_Terminate()
　Application.WindowState = xlMaximized
End Sub
【19986】Re:Excelを最小化した上でのフォームの表...
お礼  コウ  - 04/11/22(月) 13:53 -
引用なし
パスワード
   かみちゃんさん、返信有難うございます。
自分でも調べたのですが、以下のコードでもできるようなので
そちらでもやってみます。
Private Sub Workbook_Open()
　　' Excelを最小化
　　Application.WindowState = xlMinimized
　　' Excelをアクティブなアプリケーションとする
　　AppActivate "Microsoft Excel"
　　' ユーザーフォームの表示
　　UserForm1.Show
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10769 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free