| |
▼亜矢 さん：
こんにちは
エキスパートの皆さんから、適切なお答えがあるかとは思いますが
知識がプアなUO3が思いつきで試してみたコードです。
ユーザーフォームにテキストボックスを１つ配置して表示して
文字を増やしたり減らしたりしてみてください。
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
