excelで図形に入れたテキストの文字やテキストボックスに入れた文字を
セルに書き出したいです。
https://oshiete.goo.ne.jp/qa/6805214.html
のベストアンサーにある「これより下~これより上」のVBAを使って試しましたが、
新しいシートに出力されたのは"コメント"でした。
視覚的に見易いようなフローがあるのですが、システム化するにあたり
セルに直接入力されたものが必要になりました。
VBAは初心者です。
宜しくお願いいたします。
No.2ベストアンサー
- 回答日時:
No.1です。
>違うsheet(新規sheet)に書き出されると助かります!
Sheetを追加し、そのシートのA列1行目から表示するようにしてみました。
尚、表示するのは「Sheet1」のテキストボックス(オートシェイプ)のテキストとします。
標準モジュールにしてください。
Sub Sample2()
Dim cnt As Long, mySp As Shape
Dim wS As Worksheet
Worksheets.Add after:=Worksheets(Worksheets.Count)
Set wS = Worksheets(Worksheets.Count)
With Worksheets("Sheet1")
For Each mySp In .Shapes
If Len(mySp.TextFrame.Characters.Text) > 0 Then
cnt = cnt + 1
wS.Cells(cnt, "A") = mySp.TextFrame.Characters.Text
End If
Next mySp
End With
End Sub
こんな感じではどうでしょうか?m(_ _)m
感動~!!!
ありがとうございました。
"Sheet1"の部分を対象のシート名にすればいいんですねっ。
たくさん使わせていただきます。
No.1
- 回答日時:
こんばんは!
VBAでの一例です。
↓の画像ではオートシェイプのテキストボックス・四角形・楕円(四角形・楕円は「テキストの編集」でテキストを入力しています。
Sub Sample1()
Dim mySp As Shape, cnt As Long
For Each mySp In ActiveSheet.Shapes
If Len(mySp.TextFrame.Characters.Text) > 0 Then
cnt = cnt + 1
Cells(cnt, "A") = mySp.TextFrame.Characters.Text
End If
Next mySp
End Sub
これでA列1行目から各オートシェイプに文字列があればその文字列が表示されます。
ただ質問文を読むと・・・
もしかして逆のコトをやりたいのでしょうか?
(セルに入力された文字列をオートシェイプに表示したい!)
その場合は簡単です。
↓の画像のようにA1~A3セルをそれぞれのオートシェイプにテキストとして表示したい!という場合は
まず最初のオートシェイプをアクティブにします。仮にA1セルの文字列を表示したい場合は
数式バー内に
=A1
とするだけです。
他のオートシェイプも同様に
オートシェイプ選択後 → 数式バー内に
=A2
とか
=A3
のように表示したいセルのセル番地を入れるだけです。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) Excel VBAで、行の高さを、上下1文字分程度高くしたい 3 2023/04/23 00:17
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Excel(エクセル) Excelで数式をそのままコピーしたい どうすればいいですか? 4 2022/09/16 02:16
- Excel(エクセル) ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存 2 2022/04/18 13:15
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/06/15 14:11
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Excelで、図形内の文字をセルに抽出したいです
Excel(エクセル)
-
Webページ保存によるテキストボックス内文字の抽出
その他(Microsoft Office)
-
エクセルテキストボックスの文字列をセルに引っ張ってくるやり方
Visual Basic(VBA)
-
-
4
複数あるテキストボックス中のテキスト取り出し
その他(Microsoft Office)
-
5
VBA 図形のテキスト取得
Excel(エクセル)
-
6
エクセルVBAで図形のテキストを取得してセルに入力
Excel(エクセル)
-
7
図の貼り付けデータからテキストデータを抽出できますか?
Access(アクセス)
-
8
オートシェイプの文字列の抽出について
その他(Microsoft Office)
-
9
全てのテキストボックスをセルに出力
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで10進法から60進法に...
-
Excel:長い文字列が途中で切れる
-
エクセルマクロ セルをクリック...
-
Excelで数値を右詰めでセルに一...
-
excel 図形に入れたテキストや...
-
■Excel 1つのセルにある生年月...
-
ExcelからPDF文書の特定ページ...
-
エクセルで隣のセルに一月プラ...
-
EXCELで上部BOXに表示されるセ...
-
エクセル 結合・折返し・縮小...
-
excelで特定の日に"○"、該当し...
-
エクセル関数 日付によって表...
-
スプレッドシート、%表示のと...
-
エクセル #### 表示させ...
-
[最近使った関数]をリセットす...
-
エクセルの数式で教えてください。
-
エクセルで、賞味期限を、製造...
-
エクセで分を時間表示にする方法
-
【キーボード】母音しか打てない…
-
エクセルで英数大文字のみの入...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで10進法から60進法に...
-
エクセルマクロ セルをクリック...
-
Excel:長い文字列が途中で切れる
-
最大値のあるセルの行番号のみ...
-
Excelで数値を右詰めでセルに一...
-
ExcelからPDF文書の特定ページ...
-
EXACT関数とIF関数の組み合わせ...
-
4つのパターンを表示するEXACT...
-
excel 図形に入れたテキストや...
-
【Excel】枠をはみ出して表示さ...
-
エクセルでセルのフォントサイ...
-
EXCELで日付を入力すると...
-
エクセル 入力した文字が隣の...
-
エクセルで隣のセルに一月プラ...
-
Excelでの曜日表示を英語で
-
エクセル #### 表示させ...
-
エクセルシートの合計の変動
-
■Excel 1つのセルにある生年月...
-
Chr(10)とCHAR(10)は同じ意味で...
-
隔月のことを関数で処理したい...
おすすめ情報
tom04様 早速のご回答をありがとうございました!
逆のコト・・・ではなく、先頭でご回答いただいたVBAが知りたい内容でした。
上手く出力できたのですが、違うsheet(新規sheet)に書き出されると助かります!
頂いた見本では、A列に出力され、元々入力があったものに上書きされてしまいました。
自力でVBAを修正できずお恥ずかしい話ですが、作成していただけると助かりますm(v v)m
宜しくお願いします♪