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
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容