Attribute VB_Name = "testchartedit5"
Sub テスト()

    Dim chart1 As Chart
    Dim chartTitle1 As ChartTitle
    Dim font1 As Font

    Set chart1 = Charts.Add
    chart1.SetSourceData Worksheets("Sheet1").Range("B2:E6")

    chart1.HasTitle = True

    Set chartTitle1 = chart1.ChartTitle
    chartTitle1.Text = "売上一覧表"

    Set font1 = chartTitle1.Font
    font1.Size = 20

End Sub