VBA

Question

在我的工具中，我试图创建一个形状，重命名它，让它随着列的宽度变化而移动，并将它超链接到摘要 sheet。这是我到目前为止所拥有的，在此先感谢。

For s = 7 To Sheets.Count
    With Sheets(s)
        Dim GoToSummary As Shape
        Set GoToSummary = .Shapes.AddShape(msoShapeRoundedRectangle, 400, 153 + 12.75 * 2, 300, 50)

        .Shapes(GoToSummary).TextFrame.Characters.Text = "Go Back To Summary"
    End With
Next s

我知道这是不正确的，这就是我伸出援手的原因，因为我找不到与我的情况相似的东西。

Answer 1

你们非常接近！

Sub test()
Dim GoToSummary As Shape

For s = 7 To Sheets.Count
    Set GoToSummary = Sheets(s).Shapes.AddShape(msoShapeRoundedRectangle, 400, 153 + 12.75 * 2, 300, 50)
    GoToSummary.TextFrame.Characters.Text = "Go Back To Summary"
    Sheets(s).Hyperlinks.Add Anchor:=GoToSummary, Address:="", SubAddress:="Summary!A1"
Next s

End Sub

Dim GoToSummary 循环外
一旦用 Set 定义了 GoToSummary，就可以直接引用它，即 GoToSummary 而不是 .Shapes(GoToSummary)
也添加了超链接

VBA - 创建、编辑和超链接形状

VBA - Create, edit, and hyperlink shape

excel

shape