Excel 如何制作自定义悬停标签?擅长

Excel 如何制作自定义悬停标签?擅长,excel,vba,hover,label,mousehover,Excel,Vba,Hover,Label,Mousehover,有没有办法让悬停框显示除“系列”位置“点”2012年2月24日“数据标签”以外的内容?我想做一个自定义的悬停标签。我知道也有类似的帖子,但我正在寻找一个更简单的解决方案。我觉得相关的帖子要做的事情比我的要困难得多。我只想在图表上显示a列和B列中的数据,但当鼠标悬停在数据标签上时,我想显示C列中的信息 我试过: Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Singl

有没有办法让悬停框显示除“系列”位置“点”2012年2月24日“数据标签”以外的内容?我想做一个自定义的悬停标签。我知道也有类似的帖子,但我正在寻找一个更简单的解决方案。我觉得相关的帖子要做的事情比我的要困难得多。我只想在图表上显示a列和B列中的数据,但当鼠标悬停在数据标签上时,我想显示C列中的信息

我试过:

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If X > 10 And X < Label1.Width - 10 And Y > 10 And Y < Label1.Height - 10 Then
        ActiveSheet.Range("C21").Visible = True
    Else
        ActiveSheet.Range("C21").Visible = False
End If
End Sub
Private子标签1\u MouseMove(ByVal按钮为整数,ByVal移位为整数,ByVal X为单个,ByVal Y为单个)
如果X>10且X10且Y
但这还没有奏效。原来的海报说与10的价值混乱,但我没有看到任何改善。另外,我如何知道哪个标签是“Label1”

谢谢!
Jaxon

这似乎是与UserForm对象上的表单控件相关的代码,其中
Label1
是UserForm上的标签对象。对这段代码进行任何修改都不会达到你想要的效果。好的,谢谢!现在这是有道理的。如果我将数据标签分离到不同的图表表中,是否有方法引用数据标签?你能想出一个我可以用来自定义悬停框文本的代码吗?我已经看过了。据我所知,这将永久性地为数据添加标签。我只是希望数据在我将鼠标悬停在点或数据标签上时显示出来。例如:数据标签上写着“问题13”。当你将鼠标悬停在它上面时,鼠标悬停框上写着:“迈克·泰森在树林里与洛奇争夺谁将吃掉查克·诺里斯亲手杀死的熊。”鼠标悬停框太多,无法作为数据标签,但我仍然希望这些信息以某种方式链接到数据点。pnuts,它是了解如何引用其他数据的重要资源。例如,如果我可以将声明“ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel=\u True”的行更改为“…(Counter).HasHoverBox=\u True”或类似的内容,它就可以工作。我只是不太懂vba语法,不知道如何引用数据标签等对象。请参阅此解决方案。如果可以接受使用图表表而不是普通工作表,这正是您想要的。这些暴露了一些额外的事件,特别是与鼠标移动等有关的事件。