创build一个特定的图表

我想创build一个这样的图表： http : //take.ms/BEie1 。

前两列是名称和序列号。

我必须把这两个图像放在X轴上，而Y轴是用于百分比的。

这是我最近的尝试：

Dim xRange As Range Dim yRange As Range Dim objCht As ChartObject Set objCht = detailsh.ChartObjects.Add(Left:=detailsh.Columns("A").Left, Width:=350, Top:=detailsh.Rows(9).Top, Height:=210) Set xRange = Range("I2:J9") Set xRange = Range("L2:L9") With objCht.Chart Set srs = .SeriesCollection.NewSeries With srs .name = detailsh.Range("B1") .Values = detailsh.Range("I2:I7") .XValues = detailsh.Range("L2:L7") End With End With 

Answer 1

我终于可以解决了:)这是我的代码，也许可以帮助其他人。

 Dim sourcech As Chart Set sourcech = Charts.Add Set sourcech = sourcech.Location(Where:=xlLocationAsObject, name:="Details") With sourcech .SetSourceData Source:=Sheets("Details").Range("l2:L9") .SeriesCollection(1).XValues = Sheets("Details").Range("I2:J9") 'here you can modify the X axes End With