有没有办法在单击数据透视表时添加数据透视表后退按钮？

Question

我有一个工作簿，其中有几项内容可以隐藏工作表选项卡并保护工作簿中隐藏的某些内容。

我的工作簿中有数据透视表，我希望用户在双击数据表时可以看到数据透视表数据。

但是，当他们这样做时，由于选项卡被隐藏，它不允许他们返回到上一页，而是将他们锁定在该页面上。

我希望我可以创建一个简单的代码，在创建新的工作表选项卡时触发，以将带有超链接的形状拖放到工作表顶部的主页（或上一页，如果可能），然后允许用户导航回来了。

任何帮助都会很棒。

我找到了一些信息和我整理的部分代码：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 27, 14.25, 72, 71.75).Select
    
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim hyperLinkedShape As Shape
    Set hyperLinkedShape = ws.Shapes("Rectangle 1")

    ws.Hyperlinks.Add Anchor:=hyperLinkedShape, Address:="", _
        SubAddress:="Sheet1", ScreenTip:=""
End Sub

但我无法获得附加到形状的超链接。我有什么遗漏吗？

希望这是有道理的。

提前致谢。

Answer 1

使用此代码设法让它工作：

Private Sub Workbook_NewSheet(ByVal Sh As Object)

Dim hyperLinkedShape As Shape
Set hyperLinkedShape = Sh.Shapes.AddShape(msoShapeRoundedRectangle, 27, 14.25, 72, 71.75)

Sh.Hyperlinks.Add Anchor:=hyperLinkedShape, Address:="", _
    SubAddress:="Sheet1!A1", ScreenTip:="yadda yadda"

认为这可能对其他人有帮助:)

Answer 2

请尝试一下。

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sh.Shapes.AddShape(msoShapeRoundedRectangle, 27, 14.25, 72, 71.75).Select

    Sh.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:="", _
        SubAddress:="'Sheet1'!A1", ScreenTip:=""
End Sub