エクセルＶＢＡで文字配置と文字制御について

質問

エクセル97のＶＢＡで、下記の様にセル"A1"と"B1"を結合し、文字配置を
均等割り付けにしたセルの文字配置に"前後にスペースを入れる"を
くわえたいのですが？又、文字制御に"折り返して全体を表示する"も
行いたいのですが？教えてください。

Range("A1:A2").Merge
Range("A1:A2").HorizontalAlignment = xlHAlignDistributed
Range("A1:A2").VerticalAlignment = xlVAlignCenter
Cells(1, 1).Value = "テスト１２３４５６７８９"
Cells(1, 1).Font.Name = "ＭＳ 明朝"
Cells(1, 1).Font.Size = 10

回答No.2

ranako · ベストアンサー

こんにちは。
ただ、書式設定をしただけですが、参考になれば幸いです。

Range("A1:A2").Select
With Selection
.HorizontalAlignment = xlDistributed
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = True
.ShrinkToFit = False
.MergeCells = True
End With

お礼

ありがとうございます。
参考になりました。

回答No.1

Masazo-

' 前後にスペースを入れる？
Cells(1, 1).Value = " " & Cells(1, 1).Value & " "

' 折り返して全体を表示する
Cells(1, 1).WrapText = True

※動作未確認