Excel VBA質問箱 IV

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

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


13617 / 76738 ←次へ | 前へ→

【68624】Re:テキストボックスの表示
発言  UO3  - 11/3/30(水) 17:13 -

引用なし
パスワード
   ▼亜矢 さん:

こんにちは

エキスパートの皆さんから、適切なお答えがあるかとは思いますが
知識がプアな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 発言

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