Excelで謎のテキストボックスが
Excelの仕様書を修正してるんだけど、元の文書に謎の空白テキストボックスが大量におかれてる。ざざっと見ただけでも「テキスト 1800」なんてのがあったので、恐らく二千個近くあるんだろう。目障りだし、何の意味も無さそうなのでさくっと消してしまいたいんだけど、一個ずつ消してくと日が暮れちゃいそうだ。なんかいい手は無いかのぅ?
出来た。VBAでテキストボックスを全部消してみた。ちと自信が無いけど
Sub Macro1() Dim txtBox As Shape For Each txtBox In ActiveSheet.Shapes If txtBox.Type = msoTextBox Then txtBox.Delete End If Next End Sub
で出来たよ。
ディスカッション
コメント一覧
まだ、コメントがありません