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

我试图通过在图表标题中插入一个文本框来创建一个动态图表标题，该文本框显示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

提前感谢您的帮助

关于，请考虑：

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:

要获取图纸上形状的名称，请执行以下操作：

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

---

谢谢你的回复。我得到一个“运行时错误”-2147024809:找不到指定名称的项。“我只是不知道如何精确定位文本框的实际名称。当我将鼠标悬停在文本框上时，除了工具提示中显示的名称外，我看不出还有其他名称。可能与图表上的文本框有关。返回的唯一名称是图表名称。没有问题，也许我也必须以某种方式引用/激活图表和图表标题？通过多次尝试和错误，我得到了以下代码：

工作表（“图3-5”）.ChartObjects（“图1”）.activate

ActiveChart.Shapes（“文本框2”）.TextFrame.Characters.Text=范围（“a”&Rows.Count”）.End（xlUp）.Value