テキストボックスとオートシェイプが重なった場合メッセージが返る

質問

VBAについて質問させてください。

ガントチャートを作っているのですが、
テキストボックスとオートシェイプ(Rectangle****(←数字)
という名前)の二つの図形が重なったら、
メッセージで「図形が重なっています」という
メッセージを返したいと思っています。

セルに数値を入力するとバーが引かれる処理が行われます。
その時テキストボックスがある箇所にバーが引かれたら
メッセージを返す、ということです。

よろしくお願いします。

回答No.1

noname#259269 · ベストアンサー

TextBox も Rectangle も Me.Shapes コレクションで取れますから、
単にループ回して自分以外のオブジェクトとの領域判定を Left, Top, Width, Height を用いて行えば良いんではないですか？

補足

ご回答ありがとうございます。

ループを回してどのように判定するのでしょうか？
すみませんわかりませんでした。。。

できれば詳しく実装する文を書いていただけませんか？
申し訳ありませんが、よろしくお願いします。