excel - 如何在 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

如果需要，您可以设置垂直值 Fix 或 Variable。我添加了一个组合来选择：

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