EXCEL 折线图 如何设置 鼠标悬停处数据显示

seduse

请教各位高手，附件中这个折线图，如何实现这项功能：

鼠标在折线图中悬停时，能显示折线对应的数据在右上角。

seduse

问题1-添加一个可以选择时间段的按钮，折线图根据选择的时间段的变化而变化。

已自行解决了！不知道问题2，有没有高手可以指点一下？

seduse

问题2，我看到了这个教程，但是操作以后不成功，不知道是不是代码有误，还是哪里设置不对！

教程链接：23鼠标悬停二-鼠标滑过折线图，就能立刻显示数据.mp4_哔哩哔哩_bilibili

VBA代码如下：

Public WithEvents mychartClass As Chart

Private Sub myChartClass_Mousemove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)

  Dim lElementID As Long
  Dim lAFg1      As Long
  Dim lArg2      As Long
  
  mychartClass.GetChartElement x, y, lElementID, lArg1, lArg2
  
  If lElementID = xlSeries Then
  
  [cur_series] = lArg1    '记录序列id
  [cur_point] = lArg2     '记录数据点id
  
  End If

End Sub

seduse

我这个问题是无解么？

493861364

seduse 发表于 2024-10-18 16:20
问题2，我看到了这个教程，但是操作以后不成功，不知道是不是代码有误，还是哪里设置不对！

教程链接：2 ...

你这是类模块的代码，视频里还有普通模块的代码呢

齐其奇

应该去做POWER bi,里面不用编码可以实现，还有可以链接实时数据

seduse

齐其奇 发表于 2024-10-22 18:00
应该去做POWER bi,里面不用编码可以实现，还有可以链接实时数据

谢谢，要没有类似案例教程可以推荐一下？
POWER BI不熟悉，不知道如何下手！

木槿花西月锦绣

就按照视频把代码敲一下就行

micch

图表事件两种：或者是插入chart表，或者是用类。有了事件，就可以通过鼠标Move事件来判断位置，这个就需要图表的数据是全的，如果数据不全，那就需要算法计算鼠标在哪两个数据之间，进行插值计算

seduse

木槿花西月锦绣 发表于 2024-11-19 16:04
就按照视频把代码敲一下就行

收到，感谢！