VBAでヘッダーのフォントを変更する方法

はじめに

VBAのヘッダーのフォントの指定方法が複雑で、変数化するときにちょっと悩んだので備忘録としてメモ

やること

中央のヘッダーのフォントを変更します。
指定フォント : 游明朝
サイズ : 24

ヘッダーの変更方法

Option Explicit

Const FONT_SIZE = "&24"
Const FONT_NAME = "&""游明朝"""

Sub main()
    Call ChangeCenterHeader(ActiveSheet, "けものフレンズ1400万再生おめでとう")
End Sub

Function ChangeCenterHeader(Worksheet As Worksheet, Text As String)
    Worksheet.PageSetup.CenterHeader = FONT_NAME & FONT_SIZE & Text
End Function

結果

余談

太字とか他のフォントを設定したいときは、公式リファレンスを参考にするとよい

Const BOLD = "&B"

Function ChangeCenterHeader(Worksheet As Worksheet, Text As String)
    Worksheet.PageSetup.CenterHeader = FONT_NAME & FONT_SIZE & BOLD & Text
End Function

以上

参考

ヘッダーとフッターに指定できる書式コードと VBA コード - Office VBA リファレンス
Excel VBAでヘッダーのフォント種別・文字サイズを設定する