関数・メソッド

セル内の文字を均等割り付けで前後にスペースを入れる【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

注意点

  • 縦位置に前後にスペースを入れる場合は、文字の方向が縦方向の必要があります。

関連記事

コメント