日本語入力ソフトとVBAの覚え書き

・各種日本語入力ソフトの辞書解説 ・ちょっと楽になるWord/Excel VBA集 ・ボーダーブレイク用語辞書

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


f:id:dz_dzone:20170814233145j:plain

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

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

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

以上。

にほんブログ村 IT技術ブログ VBAへ←記事を気に入って頂けたらポチッとしてもらえると励みになります。