Question

我使用以下代码选择了我的图表的第一个系列：

ActiveSheet.ChartObjects(1).Activate
ActiveChart.SeriesCollection(1).Select

如何仅为此系列添加超链接？我希望每个图表系列都有不同的超链接，所以对于SeriesCollection（2）和on。也会这样做。

非常感谢

Answer 1

在工作簿中添加此代码：

Public WithEvents CHT As Chart
Const LinkVar = "http://www.google.com"

Private Sub Workbook_Open()
    Set CHT = Worksheets(1).ChartObjects(1).Chart
End Sub

Private Sub CHT_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
    On Error GoTo Fin
    If Selection.Name = "Series1" Then
        ActiveWorkbook.FollowHyperlink Address:=Sheet2.Range("A1").Value, _
        NewWindow:=True
    End If
    If Selection.Name = "Series2" Then
        ActiveWorkbook.FollowHyperlink Address:=LinkVar, _
        NewWindow:=True
    End If
Fin:

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If CHT Is Nothing Then
        Set CHT = Worksheets(1).ChartObjects(1).Chart
    End If
End Sub

添加连接到图表的Select事件在活动中，您可以检查所选内容并连接动态超链接如果您有更多的图表，则还需要检查图表的名称...
（一点点说明：还要感谢我......）
我修改了一点添加对另一个工作表中的单元格的引用，并在const中添加地址我还添加了事件SelectionChange，因为有时当您修改代码时，CHT var设置为Nothing ...在这种情况下，我检查并最终重新设置。
检查单元格中是否引用了正确的语法...

将超链接添加到单个图表系列

1 个答案: