Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("送货单").Range("A1:I15"), PlotBy:= _
        xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="送货单"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "合计 ─ ─ ─ ─ ─"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With