删除图表超链接

如何删除图表超链接？

我已经尝试了下面的代码，但似乎没有删除链接。

ActiveSheet.ChartObjects(1).Activate ActiveChart.Hyperlinks.Delete 

Answer 1

像这样的东西应该工作：

 Dim i As Long Dim c As Chart 'Set c = ActiveChart ' or... Set c = ActiveSheet.ChartObjects(1).Chart 'add hyperlink c.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:="", _ SubAddress:= "'Product'!A1" 'now remove hyperlink With c.Hyperlinks For i = .Count To 1 Step -1 .Item(i).Delete Next i End With 

正如你所看到的，我将逐个删除超链接，从倒数倒数到倒数。