コメントぴったりMoveにコメントリサイズ機能追加

以前にコメントについてこのような記事を作成した。

www.excellovers.com

コメントが挿入されたセルから遠く離れた移動したコメントをセルの近くに移動させ、なおかつセルから再び遠く離れにくい位置にポジショニングするマクロを作成した。

しかし下記のような状態のコメントに対して実行しても

このようにコメント欄が長いままで見た目がよろしくありません。

それをこのようにコメントの長さに合わせてリサイズするように変更します。

改修後コード

Sub CommentPittariMove(Optional myWB As Workbook)
     Dim myRng As Range
     
     If myWB Is Nothing Then Set myWB = ActiveWorkbook
     
     For Each myRng In myWB.ActiveSheet.Range("A1").SpecialCells(xlCellTypeComments)
          With myRng.Comment.Shape
               .Left = myRng.Offset(, 1).Left - 1
               .Top = myRng.Offset(, 1).Top - 1
               .Placement = xlMove
               .TextFrame.AutoSize = True   ' ←これを追加
          End With
     Next
End Sub