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

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

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

VBAセルコメント位置

VBAセルコメント位置

 

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

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

VBAセルコメント位置

VBAセルコメント位置

 

< スポンサーリンク >



サブコンテンツ

関連ページ

このページの先頭へ