超链接在工作簿中给出错误“引用无效”

我已经创build了一个循环遍历工作簿中所有工作表的代码，并列出图表名称以及工作表名称的所有图表。此代码工作正常。

现在我想创build一个图表名称的超链接，这样当我点击它时，它会将我引导到图表所在的位置。

下面提到的代码是创build一个超链接，但是当我点击它时，它给出了一个消息“引用无效”

我想下面提到的行需要修改：

ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "'" & .ChartObjects(lngC).name & "'" & "!A1", TextToDisplay:=.ChartObjects(lngC).name 

请build议。

整体代码：

 Sub Chartlist() Dim wks As Worksheet Dim lngS As Long, lngC As Long, lngX As Long Set wks = ActiveWorkbook.Worksheets.Add For lngS = 1 To ActiveWorkbook.Sheets.count With ActiveWorkbook.Sheets(lngS) For lngC = 1 To .ChartObjects.count lngX = lngX + 1 wks.Cells(lngX, 1).Value = .name wks.Cells(lngX, 2).Value = .ChartObjects(lngC).name wks.Cells(lngX, 2).Activate ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "'" & .ChartObjects(lngC).name & "'" & "!A1", TextToDisplay:=.ChartObjects(lngC).name Next lngC End With Next lngS wks.Columns(1).WrapText = False wks.Columns(1).EntireColumn.AutoFit Set wks = Nothing End Sub 

Answer 1

代替

 ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "'" & .ChartObjects(lngC).Name & "'" & "!A1", TextToDisplay:=.ChartObjects(lngC).Name 

使用

 ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "'" & .ChartObjects(lngC).Parent.Name & "'" & "!" & Range(.ChartObjects(lngC).TopLeftCell, .ChartObjects(lngC).BottomRightCell).Address(0, 0), _ TextToDisplay:=.ChartObjects(lngC).Name 

哪里，
.ChartObjects(lngC).Parent.Name是图表存在的图表名称， Range(.ChartObjects(lngC).TopLeftCell, .ChartObjects(lngC).BottomRightCell).Address(0, 0)是图表的地址。