.SeriesCollection(2).DataLabels给颜色赋值要几级？

ning84

1. Private Sub del()
   
2.    Dim oChart As Chart
   
3.        Set oChart = ActiveChart
   
4.        With oChart
   
5.           .SeriesCollection(2).DataLabels.Select
   
6.          
   
7.     With Selection.Interior
   
8.         .ColorIndex = 50
   
9.         .PatternColorIndex = 1
   
10.         .Pattern = xlSolid
    
11.     End With
    
12.        End With
    
13. End Sub
    

复制代码

系列标签颜色赋值，要四级。

ning84

Points的的应用

.SeriesCollection(ii).Points(7)到底是几组的应用？

1.            myChartType oChart, Rng
   
2.            With oChart
   
3.               For ii = 1 To .SeriesCollection.Count
   
4.                    cc = .SeriesCollection(ii).Points.Count
   
5.                    If cc >= 7 Then
   
6.                        .SeriesCollection(ii).Points(7).Interior.ColorIndex = 8
   
7.                    End If
   
8.               Next ii
   
9.    
   
10.            End With
    

复制代码