Excel VBA フォームサイズ変更について

ExcelVBAでボタンを押すとフォームのサイズを拡大したいのですが、できるのでしょうか？
ご存知の方がいればご教授ください。

＜考えている事＞
初期フォームが表示され、いくつか選択項目があります。
「詳細条件」ボタンを押すと
同じフォーム上に詳細条件の選択項目を出したいのです。
（たとえばフォームが下に広がるイメージ）


分かりにくい部分があれば補足します。

WindowsXP+Excel2002

No.1 ベストアンサー 回答者： nicnicnic 回答日時： 2005/08/25 09:51

はじめまして

できると思います。
あらかじめ大きなフォームを作っておいて、そこに全ての項目を設定しておきます。
で、フォーム自体は半分とかの大きさにしておいて、次のようなコードを書けばよいのではないでしょうか?

'詳細ボタン
Private Sub CommandButton1_Click()
　UserForm1.Height = UserForm1.Height * 2
　CommandButton1.Enabled = False
End Sub

'設定完了ボタン
Private Sub CommandButton2_Click()
　UserForm1.Height = UserForm1.Height / 2
　CommandButton1.Enabled = True
End Sub

うまく伝わりましたか?

この回答へのお礼

ありがとうございました。

まさにやりたい事でした。
＞大きなフォームを作っておいて、フォーム自体は半分とかの大きさにして
この発想がなかったです。
フォームを半分したら見えない部分は消える？ものだと思ってました。

お礼日時：2005/08/25 10:50

No.2 回答者： naganaga_001 回答日時： 2005/08/25 09:54

お世話になります。

Private Sub CommandButton1_Click()
Me.Height = 360　'高さ
Me.Width = 250 '幅
End Sub
でよろしいでしょうか？

この回答へのお礼

ありがとうございました。

固定で広げることもできるのですね。
＃１さんと共に参考にさせて頂きます。

お礼日時：2005/08/25 10:53