Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13324 / 13644 ツリー ←次へ | 前へ→

【5961】オートシェイプのテキストを取得したい halhal 03/6/11(水) 11:26 質問
【5965】Re:オートシェイプのテキストを取得したい Jaka 03/6/11(水) 12:18 発言
【5972】Re:オートシェイプのテキストを取得したい halhal 03/6/11(水) 12:33 発言
【5966】Re:オートシェイプのテキストを取得したい ichinose 03/6/11(水) 12:18 回答
【5971】Re:オートシェイプのテキストを取得したい つん 03/6/11(水) 12:31 回答
【5977】Re:オートシェイプのテキストを取得したい ichinose 03/6/11(水) 12:46 お礼
【5978】Re:オートシェイプのテキストを取得したい halhal 03/6/11(水) 12:50 お礼
【5974】Re:オートシェイプのテキストを取得したい halhal 03/6/11(水) 12:42 お礼

【5961】オートシェイプのテキストを取得したい
質問  halhal  - 03/6/11(水) 11:26 -

引用なし
パスワード
    題名の通り、EXCELでオートシェイプのテキストを
取得したいのですが、できません。
 マクロの記録で下記のようにオートシェイプの名前
までは取れたのですが、

 ActiveSheet.Shapes("テキスト 16")

 どういうプロパティを使用すればテキストを取得
できますか?
 よろしくご教授ください。

【5965】Re:オートシェイプのテキストを取得したい
発言  Jaka  - 03/6/11(水) 12:18 -

引用なし
パスワード
   > どういうプロパティを使用すればテキストを取得
>できますか?

こんにちは。

この場合の取得とは、どのような意味になるのでしょうか?

【5966】Re:オートシェイプのテキストを取得したい
回答  ichinose  - 03/6/11(水) 12:18 -

引用なし
パスワード
   ▼halhal さん:
こんにちは。

> 題名の通り、EXCELでオートシェイプのテキストを
>取得したいのですが、できません。
> マクロの記録で下記のようにオートシェイプの名前
>までは取れたのですが、
>
> ActiveSheet.Shapes("テキスト 16")
>
> どういうプロパティを使用すればテキストを取得
>できますか?
> よろしくご教授ください。
dim txt as textbox
set txt=ActiveSheet.Shapes("テキスト 16").oleformat.object
msgbox txt.text
でどうでしょうか?

【5971】Re:オートシェイプのテキストを取得したい
回答  つん E-MAIL  - 03/6/11(水) 12:31 -

引用なし
パスワード
   こんにちは〜

横から失礼しますー

MsgBox ActiveSheet.Shapes("テキスト 16").TextFrame.Characters.Text

これでもいける・・と思う。
ichinoseさんのもあとで試してみましょうっと♪

【5972】Re:オートシェイプのテキストを取得したい
発言  halhal  - 03/6/11(水) 12:33 -

引用なし
パスワード
    具体的に言いますと、オートシェイプの中に書かれた文字を
取得したいと思っています。

【5974】Re:オートシェイプのテキストを取得したい
お礼  halhal  - 03/6/11(水) 12:42 -

引用なし
パスワード
    Ichinoseさん、教えていただいたコードで
希望の通りにできました。

 Shapes("オートシェイプ名").Textとかやれば
取れるのかなぁとヘルプを見つつ試していましたが、
なかなか出来なかったので助かりました。
仕組みについては自分で調べてみようと思います。
どうもありがとうございました。

【5977】Re:オートシェイプのテキストを取得したい
お礼  ichinose  - 03/6/11(水) 12:46 -

引用なし
パスワード
   ▼つん さん:
こんにちは。

>
>横から失礼しますー
>
> MsgBox ActiveSheet.Shapes("テキスト 16").TextFrame.Characters.Text
>
こっちの方が正当な使い方なんでしょうね?

私は、Shapeで取得できないんならOleformatだろうという感で書きましたから・・・。
ノートにしっかりメモしておきます。ありがとうございました。

【5978】Re:オートシェイプのテキストを取得したい
お礼  halhal  - 03/6/11(水) 12:50 -

引用なし
パスワード
   つんさんに教えていただいた方法でも希望
どおりにできました。

仕組みについては自分でもう少し調べます。
どうもありがとうございました。

13324 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free