如何在excel 2013中制作可缩放的图表

Question

我在excel电子表格中有4000列和200行，我想制作包含所有数据的折线图，但是一旦我创建了图表，即使我很难看到图表中的每个单独的项目将页面缩放到最大

有没有更好的想法制作包含大量数据的图表，并且还可以放大以查看每个单独的项目？

Answer 1

您可以像缩放一样添加第二个图表：

使用Scrollbar ActiveX，您可以滚动（缩放）缩小数据范围的大图表：

Private Sub ScrollBar1_Change()
    Dim xx As Integer
    xx = ScrollBar1.Value
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Range("B" & xx & ":C" & xx + 3)
End Sub

如果需要，可以使用垂直值修复或变量。我添加了一个Combo来选择：

Private Sub ComboBox1_Change()
    Dim Fixed As Single

    If ComboBox1.Value = "Fix" Then
        ActiveSheet.ChartObjects("Chart 1").Activate
        ActiveChart.PlotArea.Select
        Fixed = ActiveChart.Axes(xlValue).MaximumScale
        ActiveSheet.ChartObjects("Chart 2").Activate
        ActiveChart.PlotArea.Select
        ActiveChart.Axes(xlValue).MaximumScale = Fixed
    Else
        ActiveSheet.ChartObjects("Chart 2").Activate
        ActiveChart.PlotArea.Select
        ActiveChart.Axes(xlValue).MaximumScaleIsAuto = True
    End If
End Sub