以实时图表形式显示工具提示

Question

我的应用程序有2个图表如下：

当悬停在第一张图表上时，是否有可能以编程方式显示第二张图表的工具提示 - 通过图表1的DataHover事件？

修改的

第二张图表的信息是相对强弱指数。它通常显示在图表的底部。出于这个原因，我把它作为一个单独的图表。

Answer 1

虽然不是我的问题的答案，但这就是我所做的。现已删除的评论询问为什么有两个图表。当我最初这样做时，图表相互叠加。

所以我简单地回到那里，并应用了缩放因子。图表的20％对于RSI来说是好的，并且由于RSI总是从100计算，我将轴最大值设置为500％，如下所示：

Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+Shift+Z
'
    Dim firstAddress As String
    Dim f As Range, cellsToColor As Range

    Application.Dialogs(xlDialogFormulaFind).Show
    With ActiveSheet.UsedRange
        Set f = .Find(what:=ActiveCell.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not f Is Nothing Then
            firstAddress = f.Address
            Do
                If cellsToColor Is Nothing Then
                    Set cellsToColor = f
                Else
                    Set cellsToColor = Union(f, cellsToColor)
                End If
                Set f = .FindNext(f)
            Loop While f.Address <> firstAddress

            With cellsToColor.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 65535
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        End If
    End With
End Sub

最终结果如下：