自定义工具提示如何使用VBA的Excel图表使用？

我正在寻找使用vba在图表上创build自定义popup式显示。

除此之外，“Value：6”显示相应的评论。 “是”

这里是一个带有示例工作簿的文章，它将鼠标hover在图表上的一个点上时显示一个文本框。 网站上的解释不够详细，我不知道是怎么回事。 当我尝试修改示例工作簿时，它将停止运行。

有没有一种方法来追踪excel vba代码来发现它在做什么？ 或者，是否有一个更好的简单的方法来创buildExcel图表的自定义工具提示？

谢谢。

Answer 1

创build一个图表（作为一个新的工作表，而不是一个embedded式图表）和编辑工作表的VBA代码来：

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 Dim Arg2 As Long Dim chart_data As Variant Dim chart_label As Variant Dim last_bar As Long Dim chrt As Chart Dim ser As Series On Error Resume Next Me.GetChartElement x, y, ElementID, Arg1, Arg2 Application.ScreenUpdating = False Set chrt = ActiveChart Set ser = ActiveChart.SeriesCollection(1) Set ser2 = ActiveChart.SeriesCollection(2) chart_data1 = ser.Values chart_label1 = ser.XValues chart_data2 = ser2.Values chart_label2 = ser2.XValues Set txtbox = ActiveSheet.Shapes("hover") If ElementID = xlSeries Then If Err.Number Then Set txtbox = ActiveSheet.Shapes.AddTextbox _ (msoTextOrientationHorizontal, x, y, 400, 120) 'Textbox size txtbox.Name = "hover" txtbox.Fill.Solid txtbox.Fill.ForeColor.SchemeColor = 9 txtbox.Line.DashStyle = msoLineSolid chrt.Shapes("hover").TextFrame.Characters.Text = "Insert text wanted to display here" With chrt.Shapes("hover").TextFrame.Characters.Font .Name = "Arial" .Size = 14 .ColorIndex = 16 End With last_bar = Arg2 End If ser.Points(Arg2).Interior.ColorIndex = 44 txtbox.Left = 0 'textbox location txtbox.Top = 0 'textbox location Else txtbox.Delete ser.Interior.ColorIndex = 16 End If Application.ScreenUpdating = True End Sub 

当鼠标移动到“xlSeries”的元素上时，创build了一个文本框。