|
▼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
ありがとうございました。期待した結果がでました。
|
|