※ ChatGPTを利用し、要約された質問です（原文：EXCEL2000でInitialize時にListBoxが希望する大きさにならない）
EXCEL2000でInitialize時にListBoxが希望する大きさにならない
このQ&Aのポイント
EXCEL2000のInitialize時にUserFormを表示させる際、ListBoxが希望通りの大きさにならないことがあります。マクロの実行直後にはほぼ必ず指定したサイズにならず、デフォルトの大きさのままになります。
MSGBOXを挿入すると確実に希望通りのサイズになることが確認されています。しかし、何らかの対処方法は分かっていません。
EXCEL2000でUserFormのサイズを指定する際に問題が発生し、ListBoxのサイズが希望通りにならない場合があります。解決策は未知です。
EXCEL2000でInitialize時にListBoxが希望する大きさにならない
EXCEL2000 OSはWIN XPを使用しています。
マクロの処理途中でUserFormを表示させる際に大きさを指定したいのですが、ListBoxが希望通りの大きさにならない場合があります。以下のコードではダメなのでしょうか？
ちなみに、エクセルを立ち上げ直後にマクロ実行した際にはほぼ１００％の確立でListBoxは指定したサイズにならず、ディフォルトの大きさのままになり、逆に下記のようにMSGBOXを挿入すると確実に希望通りのサイズとなります。
いろいろ試しましたが、対処方法が分かりません。よろしくお願いします。
Private Sub UserForm_Initialize()
'MsgBox "これを入れるとListBox1は確実に希望の大きさになります"
With UserForm1
.Top = 30
.Left = 10
.Width = ActiveWindow.Width - 30
.Height = ActiveWindow.Height
.ListBox1.Top = 50
.ListBox1.Left = 15
.ListBox1.Width = .Width - 32
.ListBox1.Height = .Height - 85
End With
End Sub
お礼
DOEVENTSでばっちりOKになりました。とても助かりました。ありがとうございます。