VBAテキストボックスで教えて下さい

質問

テキストボックスの高さを広げて使用した場合に
入力された文字が上寄せに表示されてしまいますが、
バランスよく上下幅のセンターに表示させたいです。
横方向はプロパティで設定できるのに・・・・
どのようにすればできますか。

回答No.1

pauNed

こんにちは。
シート上の場合はシェイプのテキストボックスを使えば良い事なので、
UserForm上のTextBoxコントロールの事ですね？
【QNo.3122965】と同じ内容なのではないですか？
そちらを放りっぱなしにしての重複投稿は良くないですよ？
レス頂いてる方に対して感謝の意があるなら、
きちんとお礼のコメントをつけて締め切ったほうが良いかと。

さて、以下、資源のムダ使いなので実用的ではなく、駄案ですが。

Labelを１個、TextBoxを２個、配置した新規UserFormをつくってください。
位置や大きさは適当で良いです。
そのUserFormモジュールに下記コードを置いて試してみてください。

Option Explicit

Private Sub UserForm_Initialize()
　　With Me
　　　　With .Label1 'ダミー
　　　　　　.Left = 10
　　　　　　.Top = 10
　　　　　　.Height = 30
　　　　　　.Width = 100
　　　　　　.Caption = ""
　　　　　　.SpecialEffect = fmSpecialEffectSunken
　　　　　　.BackColor = &H80000005
　　　　　　.ZOrder 1
　　　　End With
　　　　With .TextBox1
　　　　　　.Left = 12
　　　　　　.Top = 12
　　　　　　.Height = 20
　　　　　　.Width = 90
　　　　　　.SpecialEffect = fmSpecialEffectFlat
　　　　End With
　　　　With .TextBox2
　　　　　　.Left = 10
　　　　　　.Top = 50
　　　　　　.Height = 30
　　　　　　.Width = 100
　　　　End With
　　End With
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　　Dim n As Single

　　With Me.TextBox1
　　　　.AutoSize = True
　　　　n = (Me.Label1.Height - .Height) / 2
　　　　.Top = Me.Label1.Top + n
　　End With
End Sub