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

我有一个Excel电子表格中的4000列和200行，我想用它的所有数据做一个折线图，但是一旦我创build图表，很难看到图表中的每个单独的项目，即使我放大页面到最大

是否有更好的主意，使图表包含大量的数据，也可以放大查看每个单独的项目？

Answer 1

您可以添加第二个图表来使用缩放：

使用滚动条ActiveX，您可以滚动（缩放）大图减less数据的范围：

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 

如果你想，你可以有垂直值固定或variables。 我已经添加了一个组合来select：

 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