VBA – 创build，编辑和超链接形状

在我的工具中，我正在尝试创build一个形状，重命名它，让它随着列的移动宽度一起移动，并将其超链接到汇总表。 这是我迄今为止，在此先感谢。

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)
• 也增加了超链接