Excel VBA：凡例のフォントを変更する（Legend.Fontプロパティ）

Excelシート画面

［折れ線グラフの作成］ボタンをクリックすると、月度と売上推移を元に折れ線グラフを作成します。

次に作成したグラフ凡例のフォントを「HGS行書体」に設定し、サイズを15にしています。

Excel VBA実行コード

ChartObjects.Addでグラフを作成します。
ChartWizard Sourceでグラフの詳細を設定します。
gallery:=xlColumnにより、折れ線グラフになります。

Option Explicit

Private Sub CommandButton1_Click()
    Dim tCh As ChartObject

    'グラフ領域を作成
    Set tCh = Worksheets("sheet1").ChartObjects.Add(150, 70, 400, 250)

    'グラフ作成
    tCh.Chart.ChartWizard Source:=Worksheets("sheet1").Range("B6:C13"), gallery:=xlColumn, _
        Title:="売上推移", PlotBy:=xlColumns, _
        CategoryLabels:=1, SeriesLabels:=1, HasLegend:=True

    '凡例のフォント
    tCh.Chart.Legend.Font.Name = "HGS行書体"
    '凡例のフォントサイズ
    tCh.Chart.Legend.Font.Size = 15

End Sub

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

Excel VBA：凡例のフォントを変更する（Legend.Fontプロパティ）

Legend.Font.NameとLegend.Font.Sizeを使用し、フォント名とフォントサイズの変更を行うVBAを掲載しています。

Excelシート画面

Excel VBA実行コード