Excel VBA質問箱 IV

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

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


13613 / 76732 ←次へ | 前へ→

【68622】Re:テキストボックスの表示
発言  momo  - 11/3/30(水) 15:58 -

引用なし
パスワード
   ▼亜矢 さん:
あんまり見やすくは無いと思いますが・・・

たとえば、AutoSizeで元の幅と比較してフォントサイズを小さくしていくとか

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Const InitialFontSize As Double = 9 '初期フォントサイズ
Dim BufWidth     As Double
Dim BufHeight     As Double

With Me.TextBox1
 .Font.Size = InitialFontSize
 BufWidth = .Width
 BufHeight = .Height
 .AutoSize = True
 While .Width > BufWidth
  .Font.Size = .Font.Size - 0.2
 Wend
 .AutoSize = False
 .Width = BufWidth
 .Height = BufHeight
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 発言

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