用宏批量作图，如何修改柱状图的样子？

leobjut

批量作图程序如下：
Sub BatchPlot()
    Dim i
    For i = 2 To 5
        Charts.Add
        '增加一个图表
        ActiveChart.ChartType = xlColumnClustered
        '设置图表类型为折线图
        ActiveChart.SetSourceData Source:=Sheets("批量绘图").Range("c1:E1," & "c" & i & ":E" & i), PlotBy:=xlRows
        '设置图表的数据源
        ActiveChart.Location Where:=xlLocationAsObject, Name:="批量绘图"
        '设置图表的位置为当前工作表中
        ActiveChart.Parent.Top = 220 * (i - 2)
        '设置图表的上下间隔为220磅
        ActiveChart.Parent.Left = 456
        '设置图表距左为456磅
    Next i
End Sub

Sub BatchDel()
    Dim ch As ChartObject
    For Each ch In ActiveSheet.ChartObjects
        ch.Delete
        '删除图表对象
    Next
End Sub

但做出来的柱状图不好看，我想要的是表中的好看点的图，没有图标题，图的字体改为微软雅黑，应该如何修改？
我录制宏如何插入？
请指教。

leobjut

无法添加附件