如何在Excel中添加滚动条来显示图表

在Excel中制作图表时，有时数据量过多，导致图表不够清晰，阅读起来不够方便。而添加滚动条可以让图表更加清晰地呈现在用户面前。

下面我们来了解一下如何在Excel中添加滚动条来显示图表。

准备工作

在添加滚动条之前，需要准备好两张数据表–一张用于制作图表，一张用于添加滚动条。

首先，我们来创建一张简单的数据表用于制作图表。在Excel的表格中，填入以下数据:

接下来，我们需要创建另一张数据表，用于添加滚动条，该数据表的结构如下:

这张表格中，可以看到每个滚动条相对应的起始月份和结束月份，并且每个滚动条所显示的销售额也被记录在该表格中。

制作图表

在准备工作完成后，接下来的步骤是制作图表。在Excel中，我们可以选择表格中的数据，然后点击菜单栏中的“插入”选项卡，再选择合适的图表类型进行绘制。

在制作好表格图表后，我们需要对其进行格式调整。在Excel中，我们可以通过以下两个操作来修改表格显示的范围:

• 在图表中右键单击并选择“选择数据”，在该菜单中修改数据表格的范围。
• 拖动图表中右下角的黑色点，修改数据表格的大小。

将上文提到的数据表绘制成折线图的代码如下：

Sub CreateChart()
    Dim MyRange As Range
    Dim MyChart As Object

    Set MyRange = ActiveSheet.Range("A1:B13")

    Set MyChart = Sheets.Add.Charts.Add
    With MyChart
        .ChartType = xlLine
        .SetSourceData MyRange
        .HasTitle = True
        .ChartTitle.Text = "Monthly Sales"
    End With

End Sub

该段代码使用VBA语言制作图表，可在“开发者”选项卡中运行。

添加滚动条

现在，我们已经完成了表格图表的制作。接下来，步骤是在图表中添加滚动条。在Excel中，可以用以下几个步骤来添加滚动条:

1.创建Slider控件

首先，我们需要在Excel中创建Slider控件。在Excel中，我们可以通过以下操作来创建控件:

点击“开发者”选项卡中的“插入”按钮，在下拉菜单中找到“ActiveX 控件”栏，选择“Slider 控件”。

2.调整控件属性

创建Slider控件后，我们需要调整其属性。单击Slider控件后，可以在VBA中找到“属性窗口”。在该窗口中，我们可以对控件进行设置。

对于Slider控件，我们需要设置以下几个属性：

• 名称：用于标识控件的名称。
• 最小值和最大值：控制滑块的范围。
• 初始值：确定滑块的起始位置。
• 步长：定义滑块移动的步长。

使用以下代码可以进行Slider控件的创建，并设置其属性:

Sub CreateSlider()
    Dim Slider As Object

    Set Slider = Sheets(1).OLEObjects.Add(ClassType:="Forms.Slider.1", _
        Link:=False, _
        DisplayAsIcon:=False, _
        Left:=100, _
        Top:=100, _
        Width:=100, _
        Height:=15)

    With Slider
        .Object.Min = 1
        .Object.Max = 12
        .Object.Value = 6
        .Object.SmallChange = 1
    End With

End Sub

该段代码使用VBA语言创建了控件，并设置其最小值为1，最大值为12，并将初始值设置为6。

3.关联控件和数据

完成Slider控件的创建后，我们需要将其与数据进行关联。具体来说，我们需要通过代码将Slider控件与我们之前准备的第二张表格中的数据进行关联。

使用以下代码可以实现Slider控件和数据表格的关联：

Sub AssociateSliderWithData()
    Dim DataRange As Range
    Dim Slider As Object

    Set DataRange = ActiveSheet.Range("A1:C13")
    Set Slider = ActiveSheet.Shapes("Slider1").OLEFormat.Object

    With Slider
        .Min = 1
        .Max = 12
        .Value = 6
        .SmallChange = 1
    End With

    ActiveSheet.Shapes.AddChart2(297, xlLine).Select
    ActiveChart.SetSourceData Source:=DataRange

    With ActiveSheet.ChartObjects(1).ShapeRange
        .Left = 400
        .Top = 50
        .Height = 200
        .Width = 450
    End With

    ActiveChart.FullSeriesCollection(1).XValues = _
        "=" & ActiveSheet.Range("A1:A13").Address

    With ActiveChart.FullSeriesCollection(1)
        .Values = "=" & ActiveSheet.Range("C1:C13").Address
        .Name = "=" & ActiveSheet.Range("B1").Address
    End With

    With ActiveChart.Axes(xlCategory)
        .HasTitle = True
        .AxisTitle.Text = "Month"
    End With

    With ActiveChart.Axes(xlValue)
        .HasTitle = True
        .AxisTitle.Text = "Sales"
    End With

    With ActiveChart.Parent
        .Activate
        .Shapes.AddOLEObject Left:=154.5, Top:=50, Width:=180, Height:=20, _
            ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False
        .Shapes.AddOLEObject Left:=154.5, Top:=75, Width:=180, Height:=20, _
            ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False
    End With

    With ActiveChart.OLEObjects(1).Object
        .LinkedCell = "D11"
        .LinkedObject.Load ("Forms.Slider.1")
    End With

    With ActiveChart.OLEObjects(2).Object
        .LinkedCell = "D12"
        .LinkedObject.Load ("Forms.Slider.1")
    End With

End Sub

该段代码中，我们使用VBA语言将Slider控件和数据表格进行了关联，同时在右侧添加了两个文本框，用于显示滑块的起始和结束月份。

结论

通过以上步骤，我们成功地在Excel中添加了滚动条来显示图表，并且实现了Slider控件和数据表格的关联。这样，无论是数据量大还是小，我们都能很方便地查看有关的数据图表。

如果您对Excel的滚动条和控件有兴趣，建议您学习更多的Excel知识，并尝试更多的控件和自定义实现方式来提高使用效率。