[[20240328092658]]　『AppActivate Application.Caption のエラー』（ごりら）　ページの最後に飛ぶ

『AppActivate Application.Caption のエラー』（ごりら）

マクロブックを開いた際に、ユーザーフォームのみを表示させる仕様にしたく、

Application.WindowState = xlMinimized 'Excel最小化
AppActivate Application.Caption

のコードをThisWorkbook内に記載しています。

当該ファイルのみ起動する場合は問題なく、Excelが最小化されて、ユーザーフォームがアクティブとして立ち上がるのですが、他のブックが開かれている状態で、当該ファイルを起動すると、下記エラーが表示されてしまいます。

実行時エラー　"5"
プロシージャの呼び出し、または引数が不正です。

ネットで色々解決策を調べてみましたが、エラーが改善されません。
他のブックが開いていても、当該ファイル起動後に、ユーザーフォームのみ表示させる方法はありませんでしょうか。

ThisWorkbook.Sheets("Sheet1").Activate
Application.WindowState = xlMinimized 'Excel最小化
AppActivate Application.Caption　　＝＝＝ここでエラーがでる＝＝＝
Application.SendKeys "%{tab}", True

Load UF_MAIN
UF_MAIN.StartUpPosition = 2
UF_MAIN.Show

＜使用 Excel：Excel2021、使用 OS：unknown ＞

  AppActivate Application.Caption
 の前に DoEvents を複数回実行してみてください。

  DoEvents: DoEvents: DoEvents: DoEvents
  AppActivate Application.Caption

 みたいな
（´・ω・`） 2024/03/28(木) 10:59:07

（´・ω・`）様

DoEventsを複数回実行したところ、
エラーがでずにユーザーフォームが無事に表示されました。
本当にありがとうございます！

もし可能でしたら、解決できた要因などをご説明いただけると助かります。
（ごりら） 2024/03/28(木) 11:43:14

 どうしてこれでOKなのか理屈的なことは分かりません

 Application.Captionの文字列が何を返すかを調べたとき
 タイミングの問題のようだったので、
 AppActivate の前にちょと時間をおいてやればいいのかと思っただけです

 DoEventsを入れるときに複数回入れるのは、なんとなくの経験則です
（´・ω・`） 2024/03/28(木) 12:28:30

コメント返信：

[ 一覧(最新更新順) ]

[[20240328092658]] 『AppActivate Application.Caption のエラー』（ごりら） ページの最後に飛ぶ

[[20240328092658]]　『AppActivate Application.Caption のエラー』（ごりら）　ページの最後に飛ぶ