エクセル表にある空欄のテキストボックスを消したい

質問

共有でファイルでエクセル表を使用しているのですが
使用者の中に何故か空欄のテキストボックスを貼り付けたまま
消さずに保存する人が居るようで、
ファイルごとコピーした際に倍増し、
日が経つとファイルを開く時間がかかるようにまでなり困っています。

立場上、犯人探しをする訳にもいかず
地道に空欄のテキストボックスを探しては
幾つも消しているのですが、なかなか見つからず
ファイルが（何分も！）開かなくなった場合は、最初から書式自体を作り直したりまでしています。

空欄のテキストボックスということで、エクセルを開いた時には
確認する事が出来ないのですが
どこにテキストボックスがあるか、すぐ確認できる方法
又はエクセル上にあるテキストボックスをまとめて消去できる方法などは
ございますでしょうか？

御回答お待ちしております。

回答No.1

ronronPP · ベストアンサー

こんにちは！！
きっと犯人は中身の字を消したら
テキストボックスも消えると思ってるんでしょうねー。

やり方ですが、
「図形描画」→「オブジェクトの選択」（矢印マーク）を
クリックするとカーソルが矢印になります。
（※表示されてなかったら
　「表示」→「ツールバー」→「図形描画」にチェック！）

矢印でExcel上をがーっと選択すると図形が選択されるので
選択された状態でDeleteを押せば、一気に消すことができます。
もし消したくないのも選択されちゃったら
Ctrlキーを押しながらクリックすれば選択解除できます。
PowerPointみたいな感じです。

矢印から普通のカーソルに戻す時は
もう一度矢印マークをクリックするか
適当にダブルクリックすると戻ります。

他にもいい方法があるかもしれませんが
取り急ぎ書いておきます☆

お礼

お礼が大変遅くなり、大変申し訳ありません。
教えて頂いたやり方で対応したら、
即Deleteできました☆
感動して「わぁ♪」と歓声を上げてしまった程簡単でした!!

教えて頂いて、
本当に本当にありがとうございました!!!

回答No.3

liquid_crystal

VBA を使った方法は選択肢にありますか？

For Each...Next などを使って「何も入力されていないテキストボックス」を見つけ出すという方法も可能です。

参考的に VBA 処理の一部だけ書いてみると、

---
Dim Shp As Shape

For Each Shp In ActiveSheet.Shapes
If Shp.Type = msoTextBox Then
If Shp.DrawingObject.Caption = "" Then
---

みたいな感じで「文字入力のないテキストボックス」を探し出せます。
見つけ出したテキストボックスの枠線を太線にして色を変えるとかすれば見つけやすくなると思いますし、見つけ出したテキストボックスを削除する処理を追加すれば自動的に削除、という事も可能です。
実運用時には、念のために削除する/しないを一つずつご自身で判断した方がいいと思うので、少し手のこんだ処理になるかなと思いますが．．．。

お礼

御回答ありがとう御座います!

私にはちょっと難しい処理ですが・・・
余裕がある際に勉強して実行してみようと思います。
御丁寧にありがとうございました。

回答No.2

noname#184883

「テキストボックスは大量に存在し、どこにあるかは不明」という
事でよろしいでしょうか？

1.「図形描画」ツールバーから「オブジェクトの選択」を選択します。
（カーソルが矢印の形状になります。）
2.キーボードの「Tabキー」を押すと、描画されている任意のオブジェクトが1つ選択されます。
（削除したいものであれば、ここで削除します。）
3.更に「Tabキー」を押すと、次のオブジェクトが選択されます。

地道な作業になりますが、「Tabキー」でオブジェクトを探すことが可能です。

お試しあれ♪

お礼

No1.で回答頂いた方のものにTabキーを使った感じですね!
このキーを使えば、応用で利用できるかもしれませんね。
どちらにしろ、矢印カーソルがそんな意味を持つとは知りませんでした。
回答頂き、本当にありがとうございますm( _ _ )m