Sub test()
Dim vXVals As Variant
Dim vVals As Variant
vXVals = Array("Wk1", "Wk2", "Wk3")
vVals = Array(100, 175, 150)
With ActiveSheet.ChartObjects.Add(Left:=Range("B2").Left, Top:=Range("B2").Top, Width:=360, Height:=210).Chart
With .SeriesCollection.NewSeries
.Name = "Series Name"
.XValues = vXVals
.Values = vVals
End With
End With
End Sub
1 回答
是的,这是一个简单的例子......
希望这可以帮助!