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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货