请教散点图的数据系列X轴（ActiveChart.SeriesCollection(i - 1).XValues）应该怎么写

coverne

请教散点图想要用vba添加多个数据系列，系列的数据系列X轴（ActiveChart.SeriesCollection(i - 1).XValues）想取到C列的某一区间，区间的起始row在右侧的单元格里面，应该怎么写，查了一下，总是不行，请各位指教，多谢了

KCFONG

see if help you


    ActiveChart.SeriesCollection(i - 1).XValues = "=sheet6!" & wb.Range(wb.Cells(wb.Cells(i, 6), 3), wb.Cells(wb.Cells(i, 7), 3)).Address
    ActiveChart.SeriesCollection(i - 1).Values = "=sheet6!" & wb.Range(wb.Cells(wb.Cells(i, 6), 2), wb.Cells(wb.Cells(i, 7), 2)).Address

coverne

KCFONG 发表于 2015-5-31 16:01
see if help you

不好意思，excel 2010 还是会提示对象变量或with块变量未设置

KCFONG

Sub ADDSERIES()

Set wb = ThisWorkbook.Worksheets("Sheet6")
wb.Activate
For I = 2 To wb.Range("E65535").End(xlUp).Row
    ActiveSheet.ChartObjects("图表 1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(I - 1).Name = wb.Cells(I, 5).Value
    ActiveChart.SeriesCollection(1).XValues = "=Sheet6!" & wb.Range(wb.Cells(wb.Cells(I, 6), 2), wb.Cells(wb.Cells(I, 7), 2)).Address
    ActiveChart.SeriesCollection(I - 1).Values = "=sheet6!" & wb.Range(wb.Cells(wb.Cells(I, 6), 3), wb.Cells(wb.Cells(I, 7), 3)).Address
Next
   
   
End Sub

ning84

用数组
.SeriesCollection(3).Values = "={20,0,-10,1,12}"

1. Sub del()
   
2.    Dim oBj As Object
   
3.    Dim oChart As Chart
   
4.        Set oChart = Application.ActiveChart
   
5.        With oChart
   
6.            .SeriesCollection(1).Name = "T1"
   
7.            .SeriesCollection(1).Values = "={20,12,-10,1,2}"
   
8.            .SeriesCollection(2).Name = "T2"
   
9.            .SeriesCollection(2).Values = "={-20,-12,10,1,2}"
   
10.            .SeriesCollection(3).Name = "T4"
    
11.            .SeriesCollection(3).Values = "={20,0,-10,1,12}"
    
12.       
    
13.        End With
    
14. End Sub
    

复制代码

ning84

1. Private Sub Del5()
   
2.     Dim xChart As Chart
   
3.     Dim ShpRng As ShapeRange
   
4.     Dim Str, Ss
   
5.         Set ShpRng = Application.ActiveWindow.Selection.ShapeRange
   
6.         Set xChart = ShpRng(1).Chart
   
7.         Debug.Print xChart.Name
   
8.         With xChart
   
9.              Str = .SeriesCollection(1).DataLabels(1).Text '.Point(1).Label.Text
   
10.             
    
11.              Ss = .SeriesCollection(1).XValues
    
12.              Str = "兰州日出-" & Ss(1) & "日出=" & Str
    
13.              .SeriesCollection(1).DataLabels(1).Text = Str
    
14.             
    
15.              Stop
    
16.         End With
    
17. End Sub
    

复制代码