VBA制作图表

Sub test()
Dim shp As Shape

'定义一个添加图表的属性'
Set shp = Sheet1.Shapes.AddChart
    '图表的数据源'
    shp.Chart.SetSourceData Range("b2:c14")
    '图表为线形图'
    shp.Chart.ChartType = xlLine
    '最小坐标值为100000'
    shp.Chart.Axes(xlValue).MinimumScale = 1000000

End Sub