オートシェイプの文字列の抽出について

エクセルのマクロについて教えてください。

今、オートシェイプで四角が描いてあり、その中にテキストで他のエクセルブックへのパスが記入してあります。
この状態から、オートシェイプ内のパスのブックを開き、開いたブックに何らかの処理をして、開いたブックを閉じるという処理をしたいと考えております。
処理を始めるトリガーは、他のオートシェイプをクリックするなどを考えております。

いろいろ試してみたのですが、オートシェイプ内に記述してあるテキストを抽出する方法が思いつきませんでした。（ここで使われているのはテキストボックスではなく、四角のオートシェイプです。）

お詳しい方、どのようにすればよいか教えてください。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： OrangeCup150 回答日時： 2011/08/03 23:52

Shape オブジェクトの TextFrame.Characters.Text を参照するとオートシェイプ内に記述してあるテキストが得られます。

Sub メモ1_Click()
MsgBox Sheet1.Shapes(1).TextFrame.Characters.Text
End Sub

Shape.TextFrame Property
http://msdn.microsoft.com/en-us/library/bb215095 …
TextFrame Object
http://msdn.microsoft.com/en-us/library/bb210284 …
TextFrame.Characters Method
http://msdn.microsoft.com/en-us/library/bb242015 …

この回答へのお礼

ご回答ありがとうございます。
ご教授いただいた方法を使いまして、無事希望通りに動作させることができました。

お礼日時：2011/08/04 22:10

No.3 回答者： chonami 回答日時： 2011/08/04 12:44

逆の発想で、どこかのセルにそのパスを入力。

（Ex.A1セル）

オートシェイプを作成し、そのオートシェイプを選択した状態で「数式バー」に「=A1」と入力。

これで、オートシェイプにセルの内容が表示されます。

後々処理があるのなら、セルにパスが入っている方が扱いやすいのではと思うのですが如何でしょう。

この回答へのお礼

ご回答ありがとうございます。
今回はすでにオートシェイプにパスが入力されているところからなので、ご教授いただきました方法は使用できませんが、セルにパスが入力されている方が便利なのは確かです。
今後の参考とさせていただきます。

お礼日時：2011/08/04 22:13

No.2 回答者： doara_2011 回答日時： 2011/08/04 00:01

取りあえずMsgBoxで表示をしてみます。

Sub Macro1()
ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
End Sub

でどうでしょう？
複数のオートシェイプがあっても、同じマクロでいけるはず。

この回答へのお礼

ご回答ありがとうございます。
こちらの方法でうまく動かすことができました。

お礼日時：2011/08/04 22:11