オートシェイプ内の文字列検索

更新日:

以下の処理で全てのオートシェイプのテキストを拾うことができます。
しかし、画像がシート内にある場合エラーとなってしまうため、
「On Error Resume Next」文を追加してエラーを回避する必要があります。

Sample1

あとは検索処理を入れてあげれば完了です。
以下のサンプルでは、オートシェイプ内に「りんご」と書かれた
オートシェイプがあった場合、セルにオートシェイプ名を記載していきます。

Sample2

-Macro

Copyright© Excel VBA 入門 | 業務改善 , 2020 All Rights Reserved.