日々VBA(3) : メモ（コメント）の書式を一括変更する

メモは、Excel 2019まで「コメント」と呼ばれていたものです。ワークシート内に付けられたメモの書式（フォント種類や文字サイズなど）を一括変更します。

個人的にデフォルトの「MS P ゴシック」が好みでないので、ひととおりメモを付けた後でこれを使っています。

メモ（コメント）書式のデフォルトを変更できないか？

そもそもデフォルトを変更してしまえば、作成後に変更するマクロなど不要と思いますよね。しかし、残念ながらそれができないのです。

右クリックして [オートシェイプの規定値に設定]を実行しても、フォントのデフォルトは変更されません。

メモ（コメント）のデフォルトは、実はWindowsのバルーンヘルプの設定に依存しています。
その設定を変更できるソフトを使うなどすれば厳密に不可能ではないのですが、Excel以外にも影響するので別の不具合を招きかねません。このため、デフォルトは変更できないと割り切るほうが無難です。

メモ（コメント）の書式を一括変更するマクロ

Sub メモ書式一括変更()
  'フォントサイズ@名前のデフォルト値
  Const strDefault As String = "10@Meiryo UI" 
  Dim aCom As Comment
  Dim aInput As String
  Dim aSetting As Variant
  aInput = InputBox("文字サイズとフォント名を@で区切って指定してください。", _
                    "コメント書式一括設定", strDefault)
  If aInput = "" Then Exit Sub
  aSetting = Split(aInput, "@")
  For Each aCom In ActiveSheet.Comments
      With aCom.Shape.TextFrame
          .Characters.Font.Size = aSetting(0)
          .Characters.Font.Name = aSetting(1)
          .AutoMargins = False '内部マージン
          .MarginTop = 5 '(pt)
          .MarginBottom = 5 '(pt)
          .MarginLeft = 5 '(pt)
          .MarginRight = 5 '(pt)
          .AutoSize = True
      End With
  Next aCom
  Set aCom = Nothing
End Sub

「コメント」を「メモ」と改称するついでにWindows 95時代の「MS P ゴシック」も新しいフォントに変えてほしかったところです。そんなわけで、このマクロは今後も利用していくことになりそうです。