Excel VBA質問箱 IV

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

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


13616 / 76738 ←次へ | 前へ→

【68625】Re:テキストボックスの表示
お礼  亜矢  - 11/3/30(水) 18:11 -

引用なし
パスワード
   ▼UO3 さん:
>▼亜矢 さん:
>
>こんにちは
>
>エキスパートの皆さんから、適切なお答えがあるかとは思いますが
>知識がプアなUO3が思いつきで試してみたコードです。
>
>ユーザーフォームにテキストボックスを1つ配置して表示して
>文字を増やしたり減らしたりしてみてください。
>
>Option Explicit
>
>Dim svW As Single
>Dim svH As Single
>Dim svF As Single
>Dim skip As Boolean
>
>Private Sub UserForm_Initialize()
>  skip = True
>  With TextBox1
>    svW = .Width
>    svH = .Height
>    svF = .Font.Size
>    .Text = "ABCDEFGHI" 'テスト用
>  End With
>  skip = False
>End Sub
>
>Private Sub TextBox1_Change()
>  Dim n As Single, w As Single, f As Single
>  If skip Then Exit Sub
>  With TextBox1
>    f = .Font.Size
>    .AutoSize = True
>    w = .Width
>    n = f * (svW / w)
>    If n > svF Then n = svF
>    .Font.Size = n
>    .AutoSize = False
>    .Width = svW
>    .Height = svH
>  End With
>End Sub
ありがとうございました。期待した結果がでました。

0 hits

【68621】テキストボックスの表示 亜矢 11/3/30(水) 15:29 質問
【68622】Re:テキストボックスの表示 momo 11/3/30(水) 15:58 発言
【68624】Re:テキストボックスの表示 UO3 11/3/30(水) 17:13 発言
【68625】Re:テキストボックスの表示 亜矢 11/3/30(水) 18:11 お礼
【68631】Re:テキストボックスの表示 UO3 11/3/31(木) 11:19 発言

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