鼠标跟随视角设置方法

所谓图表相比表格更能直观展示信息，给人带来强烈的视觉冲击。有时，面对长篇的表格数据，如经销商销售或每款产品的销售记录，行数众多，难以一眼窥见全貌。若想探究每款产品的周销售走势，以助于产品了解和未来销售预估，单纯依靠表格显然无法满足需求。动图便派上了用场。但若是表格中嵌入众多动图，既显得拥挤也不便于查看。幸而我们还可以通过VBA让图表随着鼠标的点击而动态改变位置。这一方法的运用离不开一些基础的VBA知识，不过不必过于担心，即使只掌握基本的VBA操作也能轻松上手。下面就来简单展示一下操作流程和效果。

假设我们有三张表：款号表用于最终展示销售信息，辅助表用于存放图表数据，销售表则记录每款产品的销量数据。我们只需将特定代码嵌入款号表的宏编辑界面。具体的代码如下：

代码段：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

Sheets("辅助表").Range("A2") = Range("A" & Target.Row).Value

ActiveSheet.Shapes.Range(Array("图表 1")).Top = Range("A" & Target.Row).Top

End Sub

这段代码中涉及到的关键部分稍作解释。辅助表A2单元格将存放我们要查看的款号信息，而当前款号表中的A列与点击行交叉的单元格值会同步到此处。至于动态调整的图表部分，"图表 1"需替换为实际图表的名称，这个名称可以在点击图表时，从左上方的显示名称中复制粘贴进行替换。至于其他代码部分，无需进行改动。代码放置的位置及相关操作如下所述。如果在操作过程中代码无法执行，请检查宏安全性设置是否为最低。有关开发工具的使用可参见文章《excel解决最优解问题（规划求解的使用）》。代码放置完成后，接下来是表格的操作步骤。