Excelが大好きだ!

Excel大好き経理マンがExcelの事を書き綴っていきます。


スポンサードリンク

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

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

www.excellovers.com

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


しかし下記のような状態のコメントに対して実行しても
f:id:ExcelLover:20201103113831j:plain

このようにコメント欄が長いままで見た目がよろしくありません。
f:id:ExcelLover:20201103113847j:plain

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


改修後コード

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


TextFrame.AutoSize

TextFrame.AutoSizeプロパティにTrueを設定することで、対象オブジェクト内のテキストに合わせてオブジェクトのサイズがリサイズされる。

TextFrame.AutoSize プロパティ (Excel) | Microsoft Docs