タイトル | : Re^2: UserFormのResizeイベント |
記事No | : 12544 |
投稿日 | : 2008/06/16(Mon) 16:12 |
投稿者 | : はじめちゃん |
勘違いしておりました。お恥ずかしゅう御座います。 ExcelのUserFormはユーザーオペレーションではリサイズ出来ないですよね。 しかし、提示していただいたサンプルでリサイズ機能を自作出来る訳ですね。 ありがとう御座います。 これでやろうとしていた事が実現出来ます。
> 「割り込み」というのは、どういう意味でしょうか? > > Resize イベントはフォームのサイズ変更に応じて発生するので、 > 特に難しい処理を組み込まずとも > Private Sub UserForm_Resize() > Caption = CStr(Me.Height) & "×" & CStr(Me.Width) > End Sub > のように書いておけば、フォームの Width / Height の変更に応じて > イベントの発生に応答できるかと思いますよ。 > > それとも、別のフォームの Resize イベントを取得したいという > 意味でしょうか。もしそうなら、WithEvents を使うことになるでしょう。 > > > あるいは、Resize イベントを受け取れるかどうかが問題なのではなく、 > 単にフォームのサイズを変更したいだけなのでしょうか。 > だとしたら、フォームの Width / Height プロパティの値を変更すれば > OK です。サンプルとしてはこのあたり。 > http://support.microsoft.com/kb/213768/en-us/ > http://www.andypope.info/vba/resizeform.htm
|