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