(资料图)

1、Range("A1:A8").Select Charts.Add ActiveChart.ChartType = xl3DLine ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A8") ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"。

本文分享完毕，希望对大家有所帮助。