编写宏代码以打开和关闭excel图表中的序列

Sub OpenChartSeries()
    Dim chartObj As ChartObject
    Dim series As Series
    
    ' 获取当前活动工作表上的第一个图表对象
    Set chartObj = ActiveSheet.ChartObjects(1)
    
    ' 获取图表对象中的第一个序列
    Set series = chartObj.Chart.SeriesCollection(1)
    
    ' 设置序列的可见性为True，即打开序列
    series.Visible = True
End Sub

Sub CloseChartSeries()
    Dim chartObj As ChartObject
    Dim series As Series
    
    ' 获取当前活动工作表上的第一个图表对象
    Set chartObj = ActiveSheet.ChartObjects(1)
    
    ' 获取图表对象中的第一个序列
    Set series = chartObj.Chart.SeriesCollection(1)
    
    ' 设置序列的可见性为False，即关闭序列
    series.Visible = False
End Sub