如何在Excel中滚动时始终使图表保持可见？

如果工作表中插入了图表，当您向下滚动工作表以查看数据时，图表无法同时显示，如下截图所示，这一定很令人讨厌。本文中，我将介绍一种VBA代码，即使上下滚动工作表，也能让图表始终保持可见。

始终使图表保持可见

始终使图表保持可见

为了在滚动工作表时保留图表的可见性，您可以应用以下VBA代码来解决此问题。

1. 右键单击要保持图表可见的工作表标签，然后点击 查看代码 从上下文菜单中。见截图：

2. 在弹出的 Microsoft Visual Basic for Applications 窗口中，将以下代码粘贴到空白脚本中。

VBA：始终保持图表可见

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20161111
    Dim CPos As Double
    Application.ScreenUpdating = False
    CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveSheet.Shapes("Chart 2").Top = CPos
    ActiveWindow.Visible = False
    Application.ScreenUpdating = True
End Sub

3. 保存并关闭对话框，然后当您点击任何单元格时，图表将随之上下移动。

注意：

(1) 在VBA代码中，Chart 2 是您希望保持可见的图表名称，您可以根据需要进行更改。

(2) 此VBA无法始终使一组图表保持可见。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！