Excelのセルにインデントを設定するVBAはありますか

Excel2003のセルに文字列を入力し、ボタンをクリックするとインデントが設定され1文字分ずつ右へずれるようにしたいのです。
マクロで、書式→セル→配置タブ→インデント設定を記録してボタンを作成しました。
VBAでは以下の記録になりました。

With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 1
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

これだとボタンをクリックすると確かに1文字分ずれるのですが、「IndentLevel = 1」と固定されてしまいます。
2文字や3文字ずらすセルがあるため、ボタンをクリックするたびに1文字分ずつ続けてずれるようにする必要があります。
構文を変更すればこのようなことは可能なのでしょうか。
どうかお知恵をお貸しください。よろしくお願いします。

No.1 ベストアンサー 回答者： takana_ 回答日時： 2009/11/05 23:42

.IndentLevel = 1

↓
.IndentLevel = .IndentLevel + 1
に変更してみたらどうですか？

この回答へのお礼

早速の回答ありがとうございました。
すぐに変更したところ、クリックするたびインデントが増えていきました!!
これは他のボタンにも使えそうです。
スマートな帳票が作成できました。
本当にありがとうございました。

お礼日時：2009/11/05 23:51