Sub グラフシートに作成()
'グラフシートにマーカー付折れ線グラフを作成
    With Charts.Add
        .ChartType = xlLineMarkers
        .SetSourceData Source:=Sheets("Sheet1").Range("A3:G8")
    End With
End Sub

Sub 埋め込みグラフを作成()
'横棒グラフの作成
    With ActiveSheet.ChartObjects.Add(10, 120, 400, 250).Chart
        .ChartType = 57
        .SetSourceData Source:=Range("A3:G8")
    End With
    'グラフタイトルの追加()
    With ActiveSheet.ChartObjects(1).Chart
        .HasTitle = True
        .ChartTitle.Characters.Text = "事業部別売上"
    '軸ラベルの追加()
        .Axes(xlCategory).HasTitle = True
        .Axes(xlCategory).AxisTitle.Characters.Text = "上半期"
        .Axes(xlValue).HasTitle = True
        .Axes(xlValue).AxisTitle.Characters.Text = "金額"
    '軸ラベルの書式設定()
    '項目軸ラベルの文字列を縦に
        .Axes(xlCategory).AxisTitle.Orientation = xlVertical
    'グラフタイトルの文字サイズ変更()
        .ChartTitle.Font.Size = 14
     End With
End Sub