Excel VBA質問箱 IV

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

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


10767 / 13644 ツリー ←次へ | 前へ→

【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

10767 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free