私はこのサイトの新規ユーザーであり、VBAの新規ユーザーです。
複数のテキストボックス(多くの異なるシートから)の内容を1つのシートにまとめようとしています。
現在、私は単一のテキストボックスから変数に情報を取得することに固執しています。
この時点では、改行(改行、入力、戻りなど)を保持したいだけです。
情報をコピーして貼り付けるだけでも、現時点ではVBA経由でテキストボックスにアクセスすることすらできません。
誰かが手伝ってくれるなら、それは本当に素晴らしいことです!ありがとう。
これは最初はどうですか?
次のコードは、テキストボックス内のテキストを抽出し、すぐに表示できるように印刷します。
Sub ExtractTextFromShapes()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoTextBox Then Debug.Print shp.TextFrame.Characters.Caption
Next
End Sub
簡単に交換できます
Debug.Print shp.TextFrame.Characters.Caption
と
strText = shp.TextFrame.Characters.Caption