Excelの標準フォントを設定/取得する【StandardFontプロパティ】【ExcelVBA】

構文

Application.StandardFont

StandardFontプロパティのサンプルコード

Public Sub sample()

    '■セルA1のフォントを「標準フォント」にする
    Range("A1").Font.Name = Application.StandardFont
    
    '■セルA1を含む表に対して、フォントを「標準フォント」にする
    Range("A1").CurrentRegion.Font.Name = Application.StandardFont
                
    '■シート全体のフォントを「標準フォント」にする
    Cells.Font.Name = Application.StandardFont

    '■セルA1のフォントを標準フォントへ設定する
    Application.StandardFont = Range("A1").Font.Name

    '■「ＭＳ Ｐゴシック」を標準フォントへ設定する
    Application.StandardFont = "ＭＳ Ｐゴシック"
    
    '■現在設定されている標準フォントを取得する
    Debug.Print Application.StandardFont    'ＭＳ Ｐゴシック

End Sub

注意点

• セルのフォントを取得や設定する場合はFont.Nameプロパティを使用します。
• StandardFontプロパティが反映されるのは、Excelの再起動後です。
  変更後に新規で開くすべてのExcelブックに適用されます。

関連記事

• 全シートのセル「フォント」「フォントサイズ」を統一する処理をパーツ化する【エクセルマクロ】
• 【VBA一覧】XlRgbColor定数(文字色/背景色/見出し色)
• 【VBA一覧】ColorIndex(文字色/背景色/見出し色)