31、高级 VBA 技术：图表操作与多应用交互-优快云博客

高级 VBA 技术：图表操作与多应用交互

1. 图表操作技巧

1.1 使用 MouseOver 事件显示文本

在处理图表时，修改图表提示是一个常见需求。图表提示是当鼠标悬停在激活的图表上时，鼠标指针旁边出现的小消息，它会显示图表元素名称和（对于系列）数据点的值。不过，图表对象模型并未公开这些图表提示，所以无法直接修改它们。

若要开启或关闭图表提示，可按以下步骤操作：
1. 选择“文件”➜“选项”，打开“Excel 选项”对话框。
2. 点击“高级”选项卡，找到“图表”部分。
3. 勾选或取消勾选“悬停时显示图表元素名称”和“悬停时显示数据点值”选项。

有一种替代图表提示的方法，即使用 MouseOver 事件。以下是一个事件过程，它位于包含图表的图表工作表的代码模块中：

Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, _
  ByVal X As Long, ByVal Y As Long)
    Dim ElementId As Long 
    Dim arg1 As Long, arg2 As Long
    On Error Resume Next
    ActiveChart.GetChartElement X, Y, ElementId, arg1, arg2
    If ElementId = xlSeries Then
        ActiveChart.Shapes(1).Visible = msoCTrue