コメント枠の自動サイズ調整を一括で有効にするマクロ

大量にあるシートのコメントが見えてたり見えてなかったりするものが多かったため、コメント枠の自動サイズ調整を一括で有効にするマクロを組んでみました。

アクティブシート内全てのコメント枠の自動サイズ調整を有効にする場合

Sub SetCommentAutoSizeInSheet()
  ' ** アクティブシートのコメント枠の自動サイズ調整を有効にする **
  For i = 1 To ActiveSheet.Comments.Count
    ActiveSheet.Comments(i).Shape.TextFrame.AutoSize = True
  Next i
End Sub

選択範囲のコメント枠の自動サイズ調整を有効にする場合

Sub SetCommentAutoSizeInSelection()
  ' ** 選択範囲のコメント枠の自動サイズ調整を有効にする **
  Dim CL As Range
  For Each CL In Selection
    ' セルにコメントがあれば処理
    If TypeName(CL.Comment) = "Comment" Then
      CL.Comment.Shape.TextFrame.AutoSize = True
    End If
  Next CL
End Sub

以上。

←記事を気に入って頂けたらポチッとしてもらえると励みになります。