Excel VBA セルのコメントの位置を設定する-Top、Left

Excel VBAでセルのコメントの上位置や左位置を設定する記録です。

下図はExcel2016です。

< スポンサーリンク >

例

上位置を設定するには「Top」プロパティ、左位置を設定するには「Left」プロパティを使います。

コメントを設定しているセルの右側にピッタリとつけてみます。

Sub test()
    Dim Rng As Range
    Set Rng = Range(“B5”)

    With Rng.Comment.Shape
        .Top = Rng.Top
        .Left = Rng.Offset(0, 1).Left
    End With
End Sub

コメントを設定しているセルの上側にピッタリとつけてみます。

Sub test()
    Dim Rng As Range
    Set Rng = Range(“B5”)

    With Rng.Comment.Shape
        .Top = Rng.Top – .Height
        .Left = Rng.Left
    End With
End Sub

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします