Добавление ссылки на веб-страницу к каждой точке данных или метке данных на диаграмме рассеяния Excel

Question

У меня есть три столбца данных x значение, значение y и соответствующая ссылка на веб-страницу для каждого набора значений xy. Можно ли добавить гиперссылки к точечной диаграмме, поэтому, когда я нажимаю на точку данных или метку данных, она открывает веб-страницу ссылки в браузере?

Answer 1

Да, это возможно. Но для этого вам придется разместить диаграмму на отдельном листе диаграммы. После настройки диаграммы в коде VBA используйте событие диаграммы Chart_Select (). Например

Private Sub Chart_Select(ByVal ElementID As Long, _
ByVal Arg1 As Long, ByVal Arg2 As Long)
    'Debug.Print "Element: " & ElementID
    'Debug.Print "  Arg 1: " & Arg1
    'Debug.Print "  Arg 2: " & Arg2

    '~~> Please change as required.
    If ElementID = 3 Then
        Select Case Arg2

        Case 1: ActiveWorkbook.FollowHyperlink "http:\\Google.Com", NewWindow:=True
        Case 2: ActiveWorkbook.FollowHyperlink "http:\\Gmail.Com", NewWindow:=True
        Case 3: ActiveWorkbook.FollowHyperlink "http:\\Msn.Com", NewWindow:=True

        End Select
    End If
End Sub

Это должно помочь вам начать. Дайте мне знать, если у вас есть какие-либо вопросы:)

НТН

Sid