更改形状文本框中的文本"index into the specified collection is out of bounds"但出现错误

Question

我正在尝试更改从另一张工作表复制并保留相同名称的命名形状文本框中的文本，但不断收到错误

-2147024809 索引到指定集合中是越界的

我尝试更改名称，使用标准文本框并更改原始工作表上的文本，但没有任何效果

Worksheets("Sheet2").Range("A21:D37").Copy      
Worksheets("Sheet1").Paste Destination:=Worksheets("Sheet1").Range("A9")

'这是从另一个工作表中复制我需要的内容的代码，该工作表带来了形状文本框

Worksheets("Sheet1").Shapes(shapeTextBox1).TextFrame.Characters.Text = stringVariable

'它在这一行代码上抛出错误

它应该显示为我为stringVariable设置的字符串值，但它给了我错误代码

Answer 1

我没有尝试直接更改形状文本框中的文本，而是将每个文本框链接到一个单元格，并让 vba 代码更改

注意：我确实必须锁定指向单元格的链接，否则它会尝试获取我粘贴到的页面的相同单元格地址(='Sheet1'！$A$1(