• 締切済み

オートシェイプ内のテキスト置換

neKo_quatreの回答

回答No.1

VBAで置換してみたところ、普通に文字だけ置換されましたが…。 Sub rep_abc_xxx() 　Dim shp As Shape 　Dim tx As String 　For Each shp In ActiveSheet.Shapes 　　tx = shp.TextFrame2.TextRange.Characters.Text 　　tx = Replace(tx, "abc", "xxx") 　　shp.TextFrame2.TextRange.Characters.Text = tx 　Next End Sub

この回答がついた質問に戻る
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • エクセルのオートシェイプ内のテキスト置換

    エクセル2007を使用しています。 オートシェイプ内のテキストを一括して置換したいと考えております。 便利なソフトやVBAを試してみたのですが、元の文字色が変わってしまいます。 オートシェイプ内の文字色は2，3色使用しており、その色を保持したまま、一部の文字だけ置換したいのです。そういったことは可能でしょうか。ちなみに置換したい文字色は1色です。 よろしくお願いいたします。

  • excel VBA　オートシェイプのテキスト段落

    おはようございます。 【オートシェイプ内のテキスト行間を指定するプロパティ】 オートシェイプ内のテキスト行間を指定するプロパティはありますでしょうか？ excel 2007で　オートシェイプにテキストをいれた場合、 右クリックすると「段落」という項目がでてきて、 オートシェイプ内のテキストの行間を指定できたのですが、 オートシェイプ内のテキストの行間をVBAで指定することはできるのでしょか？ （マクロを登録してもなにも記述されていないので、困っています。） 最終的にはアクティブブックの全シートのオートシェイプの行間を変更する VBAにしたいと思っています。 参考URL等あれば教えていただけませんでしょうか？ よろしくお願いいたします。

  • エクセルでの　オートシェイプの中のテキストの回転

    エクセルで　オートシェイプの中にテキストを挿入し、回転すると文字はそのまま回転せずに残ります。　 文字がオートシェイプの回転と　同調して回転するようにするには　どうしたらよいのでしょうか？？　 オフィス2000　エクセル2000を使っています。

  • オートシェイプの文字列の置換

    エクセル2003を使用している者ですが、オートシェイプの文字列の置換ができなくて困っています。マクロ初心者ですが、量が多いためマクロで解決できればと思っています。 このようなマクロをご存知の方がいましたら、コードを教えていただけますでしょうか。 宜しくお願いします。

  • エクセル　オートシェイプ

    こんばんは！ エクセルのオートシェイプについての質問です。 会社の稟議書を作成していて、上のほうに、オートシェイプで部長や課長のハンコを押す欄を作ろうと思ったのですが、うまくいきません・・・ エクセルで罫線を引いて、セル内に文字を入れるのは簡単なのですが、オートシェイプで作成する場合は、どのようにしたらよいでしょうか・・・ 四角形を挿入して、縦に二本オートシェイプで直線を引いて、横にも一本オートシェイプで直線を引いて、それをグループ化したまではよかったのですが、テキストをどのように入れたらよいのか分かりません・・・ 右クリックしても、テキスト追加できず、悩んでいます・・・ どなたかお分かりでしたら、お願いいたします。

  • Office2000でオートシェイプ内の文字列置換

    Office2000でオートシェイプ内の文字列を置換する事は可能でしょうか？ できれば、複数のオートシェイプを選択矢印マークで選択するところまではできるのですが検索や置換のところがグレーで選択できません（T_T）

  • オートシェイプのテキストが1文字切れる

    パワーポイント2003で、オートシェイプにテキストを追加していると、いくつかのオートシェイプで右側1文字だけ切れて表示されるという現象が起こってしまいます。 例えば「○○プロジェクト」と書いていると「○○プロジェク」だけ見えるようになってしまうのです。オートシェイプのサイズを調整すると、文字自体は消えていませんが。 「テキストに合わせて描画オブジェクトのサイズを調整する」としているのですが、一度終了させてまたファイルを開くと、何故か右側1文字だけ切れて表示されます。 もう一度、「テキストに合わせて描画オブジェクトのサイズを調整する」のチェックを入れると直るのですが、また閉じてから開くと同じように1文字切れてしまいます。 文字自体が無くなっているわけでも、オートシェイプのサイズが変更されてるわけでもないようなのですが…… かなり手間ですし、印刷しても1文字切れた状態で表示されるのでいちいち直さなくてはならず、結構困ってます。 この現象を防ぐ方法を教えてください。 よろしくお願いいたします。 ちなみに、そのオートシェイプに利用しているフォントは「ＭＳ Ｐゴシック」、サイズは16で太字、左寄せになってます。

  • EXCELのオートシェイプについて

    基本的なことをお聞きします・・・ WORDなどは、文字の上にオートシェイプを重ねたとき テキストとの関係の設定（背面・前面）ができますよね。 EXCELの場合は、セルに入ってるデータの上に オートシェイプを置いた時、テキストがオートシェイプの前に来るという概念はありませんよね？ それはやはり「セル」というものが特殊なものだからですか？ オートシェイプの塗りつぶしをなしにするか、 透明度を高くして、セルの文字が見えるようにする しか方法はないんですよね？ 「なぜ？？」と理由を聞かれたら どう説明してあげるのが適当ですか？

  • オートシェイプとテキストボックスのグループ化したい

    エクセル2007を使用しています　オートシェイプとかテキストボックスとかイラストをグループ化したいのにできません。だれかいい方法を教えて下さい。

  • JavaScriptで書き出したオートシェイプにテキストを挿入したいの

    JavaScriptで書き出したオートシェイプにテキストを挿入したいのですができません。 先日、ExcelのシートにJavaScriptでオートシェイプを書き出す方法を質問した者です。 今度は書き出したオートシェイプにテキストを挿入したいのですが上手くいきません。 どうすれば良いのか教えてください。 ※またもやJavaScriptで解決したいです。 なお、現在悩み中のソースは以下のようです。 ※教えて頂いたソースほとんどそのままですが... function createShapes() { var excel = new ActiveXObject( "Excel.Application" ); excel.visible = true; var sheet = excel.Workbooks.Add().activeSheet; // オートシェイプ挿入：引数の１０５は吹き出しを示す sheet.Shapes.AddShape(105, 123, 37.5, 151.5, 94.5); // ココでメソッド、プロパティがないとエラーになってしまう... 　sheet.Shapes("AutoShape 1").Characters.Text = "ほげほげ"; } よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する