求VBS绘制excel折线图代码??? 数据源为单列,多少不限

发布网友发布时间：2022-04-20 10:10

共1个回答

热心网友时间：2022-04-20 11:39

Sub linechart()
Columns("A:A").Select
ActiveSheet.Shapes.AddChart2(227, xlLine).Select
ActiveChart.SetSourceData Source:=Range("Sheet1!$A:$A")
ActiveChart.ChartTitle.Select
Selection.Format.TextFrame2.TextRange.Characters.Text = "标题"
End Sub

简单点的程序就是这样，假定数据全部入在A列。程序中标题请自定义。程序调用名为：linechart

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com