在Excel中滚动鼠标界面向下移动时，如何始终保持图表在视野中？.docVIP

在Excel中滚动鼠标界面向下移动时，如何始终保持图表在视野中？

Excel情报局

Excel职场联盟

生产挖掘分享Excel基础技能Excel爱好者大本营用1%的Excel基础搞定99%的职场问题做一个超级实用的Excel公众号Excel是门手艺玩转需要勇气数万Excel爱好者聚集地SUPEREXCELMAN

前言｜职场实例

在日常的职场工作中，我们经常使用Excel的插入图表功能，来插入各种各样的图标，比如折线图，柱形图，饼图等。如下图所示：我们根据AB两列的数据源，通过Excel的【插入】-【图表】功能快速的插入了一个漂亮的球状顶点折线图。

但是由于我们图表所引用的AB列数据源有点长，达到了20行（实际的工作中往往数据量更大），有时候我们会有需求：滚动鼠标滑动杆向下浏览数据源的数据，但是我们事先插入的Excel图表却始终固定在顶端的位置不动，这就造成了我们不能实时的看到我们的Excel图表了，非常的不方便。

有的小伙伴可能会选择常规的：一边向下滚动鼠标滑动杆使界面向下移动查看下面的数据，一边通过鼠标点击选中Excel图表并向下拖动图表的方式，使数据源与图表位于相同水平位置，达到两者同时保持在我们的视野中。

那么有没有一种可能就是：当我们滑动鼠标滑动杆使界面向下移动的同时，我们的Excel图表也可能实时同步的移动呢？如下图所示：

方案｜解决步骤

其实还真有一种方法可以实现向下或向上滚动工作表也可以始终查看图表的方法。Excel本身的基础功能是无法达到这种效果的，今天我们介绍一个VBA代码的方法来快速的实现它。

我们鼠标右击图表所在的工作表名称标签，点击“查看代码”命令，进入到VBA代码编辑器窗口界面，然后将下面的一小段VBA代码复制并粘贴到代码窗口中，复制粘贴完成后，关闭VBA编辑器代码窗口即可。代码如下：



















PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)DimCPosAsDoubleApplication.ScreenUpdating=FalseCPos=ActiveWindow.ScrollRow*ActiveCell.RowHeightActiveSheet.ChartObjects(Chart1).ActivateActiveSheet.Shapes(Chart1).Top=CPosActiveWindow.Visible=FalseApplication.ScreenUpdating=TrueEndSub

操作步骤如下图所示：

当我们关闭VBA代码编辑器窗口回到Excel工作表界面后，我们向下或向上滚动工作表就实现了始终可以查看到图表的效果，始终保持Excel图表在我们的视图视野之中，非常的方便。最终效果如下图所示：

使用代码需要注意的地方：

①在VBA代码中，“Chart1”代表的是我们历史中插入的第几个图表，因为在这个例子中这个图表是我第1次插入的，所以是“Chart1”；如果我们再次插入第2个图表，这里就需要改成“Chart2”了，以此类推，根据实际情况进行修改即可。还有一点值得注意的是，如果我们删除了第1个图表之后，再次插入一个图表的话，那么这个图表应该是“Chart2”而不是“Chart1”，因为之前删除的历史记录不可抹去。

②此VBA代码不能始终查看一组图表。

如果表格中同时存在多个图表，代码只能对其中一个图表起作用，我们依然需要修改“Chart”中的数字来确定到底对第几个插入的图表起作用。

阅读完文章之后，希望小伙伴们在文章底部帮助小编[点赞]+点亮[在看]；如果觉得内容有价值欢迎[分享]给你的同事朋友；小编也和大家一样，正在不断的学习与积累中，坚持持续分享的道路上很艰辛，需要有你们的鼓励与支持！别逃避问题，否则它只会越积越多；每天进步一点点，你就胜过了大多数人。