将超链接添加到转到不同文件和特定工作表的对象?

时间:2014-05-15 21:57:53

标签: excel excel-vba object hyperlink vba

我的最终目标是使用VBA向图表添加超链接(单击时)打开另一个已保存的工作簿,然后导航到特定工作表。

我知道如何添加超链接以使用VBA打开文件(见下文),但我不知道如何指定我希望它打开的工作表。

Sub HyperlinkToFile()
'
' HyperlinkToFile Macro
'
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
        "Book1.xlsm"
End Sub

我已经想出如何使用以下内容将超链接插入到我想要的文件和工作表的单元格中:

=HYPERLINK("[Book2]Sheet1!A1", "CLICK HERE")

但我不希望它在一个单元格中。通过使用VBA,我需要超链接锚定在图表上然后我需要超链接打开Book1然后导航到Sheet1然后单元格A1。

这可能吗?因为我已经浏览了整个互联网并且找不到办法。

1 个答案:

答案 0 :(得分:0)

您可以将宏指定给图表:

Sub Macro1()
    Workbooks.Open Filename:="E:\0\A\00 Move Form.xlsm"
    Sheets(1).Activate
    Range("A1").Select
End Sub

当您点击时,您有一个“超链接”...