セル内の文字を均等割り付けで前後にスペースを入れる【AddIndentプロパティ】【ExcelVBA】

構文
文字を均等割り付け後、前後にスペースを入れるコードサンプル
注意点
関連記事

構文

Object.AddIndent= expression

expression・・・・均等割り付けした際、前後にスペースをTrue 入れる / False 入れない

HorizontalAlignmentプロパティ/VerticalAlignmentプロパティでセルの文字位置を均等割り付けにした際、前後にスペースを入れるかどうか設定が可能です。縦位置(注意点あり)・横位置共に設定が可能です。

文字を均等割り付け後、前後にスペースを入れるコードサンプル

Public Sub sample()

    '■比較用にセルに文字を反映
    Range("A1").Value = "あいうえお"
    Range("A2").Value = "あいうえお"

    '■前後にスペースを入れる(AddIndent = True)
    With Range("A1")
        .HorizontalAlignment = xlDistributed
        .AddIndent = True
    End With
    '→〇あ〇い〇う〇え〇お〇

    '■前後にスペースを入れない(AddIndent = False)
    With Range("A2")
        .HorizontalAlignment = xlDistributed
        .AddIndent = False
    End With
    '→あ〇い〇う〇え〇お

End Sub