VBA创建折线图时，无法给折线添加系列名

ipaint

1. 
   

复制代码

需求：给每个折线图添加标签，标签内容为该序列名（序列产生于列）报错代码：.SeriesCollection(1).Points(1).DataLabel.Text = "AAA"   '该处报错：
报错图示：请见图
————————
以上报错原因是哪里呢？该如何调试呢？请各位老师指教，谢谢。

ipaint

1. 
   
2. Sub test3_graph()
   
3.      Dim Sht2
   
4.      
   
5.      Dim pic As Shape
   
6.      
   
7.      '删除已创建图
   
8.      For Each pic In ActiveSheet.Shapes
   
9.          pic.Delete
   
10.      Next
    
11.      
    
12.      
    
13.      Set Sht2 = ThisWorkbook.Sheets("Sheet3")
    
14.      
    
15.      '创建新图
    
16.      With Sheets("Sheet3").Shapes.AddChart(xlLineMarkers, 0, 150, 550, 300).Chart
    
17.           .SetSourceData Source:=Range("Sheet3!$B$1:$L$4"), PlotBy:=xlColumns '设置数据源
    
18.           .Axes(xlValue).MinimumScale = 3.5
    
19.           .Axes(xlCategory).Select
    
20.           .FullSeriesCollection(1).XValues = "=Sheet2!$M$24:$M$26"
    
21.           .Axes(xlValue).MajorGridlines.Delete
    
22.           .SeriesCollection(1).Points(1).MarkerSize = 10
    
23.          
    
24.           .SeriesCollection(1).Points(1).DataLabel.Text = "AAA"   '该处报错：
    
25.           .SeriesCollection(1).Points(1).DataLabel.Left = 80.745
    
26.           .SeriesCollection(1).Points(1).DataLabel.Top = 233.97
    
27. 
    
28.           .SeriesCollection(11).Points(2).MarkerSize = 10
    
29.           .SeriesCollection(11).Points(2).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
    
30.      End With
    
31. 
    
32. 
    
33. End Sub
    
34. 
    

复制代码

Datous

插入一句，插在 运行错误语句 之前

.SeriesCollection(1).Points(1).HasDataLabel = True

ipaint

谢谢您，可以实现