为什么会出现运行时错误424对象必需？

Question

Sub ChooseTestWords()

Dim i As Integer
Dim s As Shape
Dim wordsArray1(1 To 3) As Variant

' Assign the 3 values in the sheet4 to the array
 For i = 1 To 3
   wordsArray1(i) = Sheet4.Cells(i + 1, 2).Value
Next i

Sheet1.Shapes("TestWordsBox").TextFrame2.TextRange.Text = wordsArray1(1).Value

End Sub

我得到一个

对象必填错误

在

Sheet1.Shapes("TestWordsBox").TextFrame2.TextRange.Text = wordsArray1(1).Value

我可以知道为什么会出错吗？ 我只是将数组的值分配给形状的文本。

Answer 1

数组没有.Value 。 更改

Sheet1.Shapes("TestWordsBox").TextFrame2.TextRange.Text = wordsArray1(1).Value

至

Sheet1.Shapes("TestWordsBox").TextFrame2.TextRange.Text = wordsArray1(1)