Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13326 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   つんさんに教えていただいた方法でも希望
どおりにできました。

仕組みについては自分でもう少し調べます。
どうもありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13326 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free