Excel VBA テクニック集
コメントの文字書式１

コメントの文字書式を取得する方法です。逆に設定もできます。

使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。

コメントの縦表示・横表示です。

    Dim Comment_Obj As Object
    Dim Var_V As Variant

    Set Comment_Obj = Excel_App.ActiveSheet.Comments(1)
    Var_V = Comment_Obj.Shape.TextFrame.Orientation

で取得できます。

定数	意味	コメントの様式
xlHorizontal	横
xlVertical	縦

コメントの文字の横位置です。

    Var_V = Comment_Obj.Shape.TextFrame.HorizontalAlignment

で取得できます。

定数	意味	コメントの様式
xlLeft	左詰
xlCenter	中央
xlRight	右詰
xlJustify	両端揃え
xlDistributed	均等割付

「両端揃え」において、文字列が改行なしで折り返されるときに、両端が揃えられます。上記で言うと「左詰」と比較し、文字「微妙」の位置が右側に揃います。

コメントの文字の縦位置です。

    Var_V = Comment_Obj.Shape.TextFrame.VerticalAlignment

で取得できます。

定数	意味	コメントの様式１	コメントの様式２
xlTop	上詰
xlCenter	中央
xlBottom	下詰
xlJustify	両端揃え
xlDistributed	均等割付

「横表示」の場合、「両端揃え」と「均等割付」は同じです。「縦表示」の場合において、文字列が改行なしで折り返されるときに、両端（上下）が揃えられます。

Excel VBA テクニック集コメントの文字書式１

Excel VBA テクニック集
コメントの文字書式１