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

エクセル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.1 回答者： Masazo- 回答日時： 2001/06/19 10:53

' 前後にスペースを入れる？

Cells(1, 1).Value = " " & Cells(1, 1).Value & " "

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

※動作未確認

No.2 ベストアンサー 回答者： ranako 回答日時： 2001/06/19 11:46

こんにちは。

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

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

この回答へのお礼

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

お礼日時：2001/06/19 13:04