[5分]循环计数

想图表的标题作为图表的名称，想逐个命名图表，可是循环计数有问题，只能命名第一个图表对象，请老师示下！

Sub 命名图表名称与标题统一()

Dim chartcount As Integer, i
With ActiveSheet.ChartObjects  
chartcount = .Count             
If chartcount <= 1 Then Exit Sub  
For i = 1 To chartcount           
.Item(1).Name = .Item(1).Chart.ChartTitle.Text  
Next
End With
End Sub