将最后一列中单元格的值链接到插入的文本框（通过 vba）

Question

我正在尝试通过在图表标题中插入一个文本框来创建动态图表标题，该文本框显示 A 列中最后一个填充单元格的值。行数随着时间的推移而增加，所以我想来使用动态单元格引用。当我将鼠标悬停在文本框上时，会出现一个带有此文本“TextBox 2”的工具提示，因此我假设这是文本框的名称。我绝对愿意接受其他不使用 vba 的方法。似乎这段代码都不能激活文本框：

Sub textbox()
Worksheets("Figure3-5").TextBoxes("TextBox 2").Range("A" & Rows.Count).End(xlUp).Value
End Sub

Sub textbox()
Worksheets("Figure3-5").TextBox2.Value = Range("A" & Rows.Count).End(xlUp).Value
End Sub

Sub textbox()
ActiveSheet.Shapes("TextBox 2").Select
Selection.Characters.Text = Range("A" & Rows.Count).End(xlUp).Value
End Sub

提前感谢您的帮助。

问候，

Answer 1

考虑：

Sub dural()
    Sheets("Figure3-5").Select
    Sheets("Figure3-5").Shapes("TextBox 2").Select
    Selection.Characters.Text = Range("A" & Rows.Count).End(xlUp).Value
End Sub

编辑#1：

要获得工作表上 Shapes 的 Names，请运行：

Sub Namer()
    Dim s As Shape
    For Each s In Sheets("Figure3-5").Shapes
        MsgBox s.Name
    Next s
End Sub