PowerPoint如何批量修改图表的legend

代码大意是先遍历ppt每一页，然后遍历每页的shape，判断shape类型是否为图表，是图表则修改名称

Sub batchModifyLegend()
For Each sld In ActivePresentation.Slides
For Each sh In sld.Shapes
If sh.Type = 3 Then
For Each Serie In sh.Chart.SeriesCollection
If Serie.Name = "两厢用户" Then
Serie.Name = "经济型用户"
End If
If Serie.Name = "三厢用户" Then
Serie.Name = "品质型用户"
End If
Next
End If
Next
Next
End Sub