VBAテキストボックス内の値を印刷

Question

VBAを使用してExcelのテキストボックスの値を印刷しようとしています。テキストボックスには、タイトルの「テキストボックス6」であり、これは私が使用するコードです：

Debug.Print (wSheet.Shapes("TextBox 6").TextFrame.Characters.Text) 

wSheetは、テキストボックスが配置されている主なワークシートです。私が得るエラーは：

指定された名前の項目が見つかりませんでした。

助けがあれば助かります！前もって感謝します！

Answer 1

ActiveXコントロールを使用できます。テキストボックスをシートに追加します。

右テキストボックス内をクリックし、次のコードを試してくださいその後

ビューコードメニューを選択します。

Private Sub TextBox1_Change() 
    Cells(1).Value = TextBox1.Text 
End Sub 

Answer 2

Private Sub this() 
    Debug.Print ; ActiveSheet.OLEObjects("TextBox1").Object.Value 
End Sub