excel数据绘制动态折线图

要在Excel中绘制动态折线图，您需要执行以下步骤：

1. 创建一个包含数据的Excel工作表，其中包含您要绘制的折线图数据。确保数据在相邻单元格中，并且每列都有一个标题。

2. 选择数据范围，包括所有列和行（包括标题），然后单击“插入”选项卡上的“折线图”图标。

3. 在弹出的“折线图”对话框中，选择“折线图”类型，然后点击“下一步”。

4. 在“数据系列”选项卡中，可以更改系列名称、值和颜色等选项。

5. 在“图表选项”选项卡中，您可以设置图表的标题、轴标签和其他选项。

6. 单击“完成”按钮，Excel将创建一个静态的折线图。

7. 要使折线图动态显示，请转到“开发者”选项卡，并单击“宏”按钮。

8. 在弹出的“宏”对话框中，输入一个名称，例如“动态折线图”，然后单击“创建”。

9. 在Visual Basic Editor中，您将看到一个名为“动态折线图”的新宏。将以下代码复制并粘贴到该宏中：

Sub Dynamic_Line_Chart()

    Dim i As Long
    Dim j As Long
    Dim k As Long
    Dim x As Long
    Dim y As Long
    Dim chartRange As Range
    Dim chartSeries As Series
    
    i = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    j = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
    Set chartRange = ActiveSheet.Range(Cells(1, 1), Cells(i, j))
    
    With ActiveSheet.Shapes.AddChart
        .Chart.SetSourceData Source:=chartRange
        .Chart.ChartType = xlLineMarkers
        .Chart.HasLegend = False
        .Chart.SeriesCollection(1).XValues = chartRange.Columns(1)
        .Chart.SeriesCollection(1).Values = chartRange.Columns(2)
        
        For k = 3 To j
            x = 1
            y = k - 1
            Set chartSeries = .Chart.SeriesCollection.NewSeries
            chartSeries.Name = chartRange.Cells(1, k).Value
            chartSeries.XValues = chartRange.Columns(1)
            chartSeries.Values = chartRange.Columns(k)
            chartSeries.MarkerStyle = xlMarkerStyleCircle
            chartSeries.MarkerSize = 7
            chartSeries.Format.Line.Weight = 2
            chartSeries.Format.Line.ForeColor.RGB = RGB(192, 0, 0)
            
            For i = 1 To chartSeries.Points.Count
                chartSeries.Points(i).MarkerBackgroundColorIndex = x
                chartSeries.Points(i).MarkerForegroundColorIndex = y
            Next i
            
        Next k
    End With
    
End Sub

10. 单击“运行”按钮，Excel将创建一个动态的折线图。

这个宏将根据您的数据范围创建一个静态折线图，然后将每个系列的颜色和点标记设置为动态更改。您可以根据需要更改它们的颜色和大小。