求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