双击数据透视表生成新表后添加返回按钮的VBA代码问题求助

你的代码核心问题在于硬编码了形状名称"Rectangle 1"——当多次创建新工作表时，新增的形状名称会自动递增（比如Rectangle 2、Rectangle 3），导致代码无法定位到正确的形状；另外没必要用Select激活形状，直接引用AddShape返回的对象更可靠，同时应该用事件参数Sh而非ActiveSheet，避免激活冲突。

修复后的完整代码如下：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    ' 直接捕获新创建的形状对象，无需Select和硬编码名称
    Dim hyperLinkedShape As Shape
    Set hyperLinkedShape = Sh.Shapes.AddShape(msoShapeRoundedRectangle, 27, 14.25, 72, 71.75)
    
    ' 给形状添加显示文字（可选，提升用户体验）
    hyperLinkedShape.TextFrame2.TextRange.Text = "返回主页"
    
    ' 添加超链接到指定工作表（替换成你的目标工作表名称，比如"数据透视表主页"）
    Sh.Hyperlinks.Add Anchor:=hyperLinkedShape, Address:="", _
        SubAddress:="Sheet1!A1", ScreenTip:="点击返回原工作表"
End Sub

关键修复点 #

• 避免硬编码形状名称：直接用AddShape的返回值获取形状对象，不用依赖自动生成的名字
• 使用事件参数Sh：Workbook_NewSheet事件里的Sh就是刚创建的工作表，比ActiveSheet更准确
• 添加形状文字：给形状加上"返回主页"的提示，用户更清楚按钮用途
• 指定SubAddress的单元格：超链接最好定位到具体单元格（比如Sheet1!A1），避免定位模糊

额外优化建议 #

• 如果你的目标工作表有自定义名称（不是默认Sheet1），记得替换SubAddress里的工作表名称，比如"销售数据透视表!A1"
• 可以调整形状的样式（填充色、字体等），让按钮更醒目：

' 示例：设置形状填充色和字体样式
With hyperLinkedShape
    .Fill.ForeColor.RGB = RGB(0, 128, 128) ' 深青色填充
    .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 255, 255) ' 白色文字
    .TextFrame2.VerticalAnchor = msoAnchorMiddle ' 文字垂直居中
    .TextFrame2.HorizontalAnchor = msoAnchorCenter ' 文字水平居中
End With

内容的提问来源于stack exchange，提问作者ajr45