|
早速のご返答ありがとうございます。ご指摘の方法でうまくゆきます。
でもこれは自分が作成する図形についてですね。
当方の説明不足で申し訳ありません。今回更新したいのは他人が作成したものです。Picture,Rectagle,TextBoxなど多数の図形が単独若しくはGroupに含まれています。これらの図形の一括検索・更新するマクロを作成しました。これを単純にしたくて投稿した次第です。。
このマクロは二つあります。
Step1:Shapeのテキストを総てExcelSheeetに一覧形式で取得(マクロ前半)
Step2:変更したいテキストをExcelSheet上で複数カ所書き直す。(人)
Step3:変更カ所に対応する図形の中身を一括更新(マクロ後半)
のように使います。
Step1ではGroupを解除して単独図形にして、テキスト取得します。
Step3では更新したい図形は単独ですから
Selection.Text="更新したい文字列"
が実行できます。その後Groupの分解の逆を辿って元のGroup編成を再現します。
このグループの分解、再編成がマクロを複雑にしており質問箱にメールしました。
よろしく願います。
Groupのままでテキスト取得するにはGroupItemsのメンバーをSelectすれば可能です。この時に更新する方法が知りたくてメールしました。
よろしく願います。
|
|