Скопируйте текст из основного "Текстового поля" и вставьте его в ячейку

Question

Я пытаюсь получить доступ к тексту внутри "Текстового поля 1", скопировать его, а затем вставить его в диапазон, начинающийся с A37 .

ОБНОВЛЕНИЕ: рассматриваемые текстовые поля представляют собой простые текстовые поля, которые были вставлены с использованием: Вставка вкладки> Кнопка текстового поля.

Ниже приведен список вещей, с которыми я экспериментирую. Я не могу найти способ получить текст и скопировать его. Есть идеи?

Sub textbox()

    Dim txBox As Shape
    Set txBox = ActiveSheet.Shapes("Text Box 1")
    'shpTextBox.selStart = 0
    'shpTextBox.SelLength = Len(shpTextBox.Text)

    txBox.Select
    txBox.TextFrame.Characters.Text
    Range("A37").Value = shpTextBox.Value    

End Sub

Answer 1

Это работает, когда я пытаюсь это:

Dim txBox As Shape
Set txBox = ActiveSheet.Shapes("Text Box 1")

Range("A37").Value = txBox.TextFrame.Characters.Text