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

構文
StandardFontプロパティのサンプルコード
注意点
関連記事

構文

Application.StandardFont

StandardFont・・・Excelアプリケーションの標準フォント名を取得/設定

Applicationオブジェクトの StandardFont プロパティでExcelの標準フォント名を取得/反映します。

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