почему я получаю ошибку во время выполнения 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)