Excel VBAでオートシェイプのテキスト段落を指定する方法
- Excel 2007では、オートシェイプ内のテキスト行間を指定することができましたが、VBAを使用して行間を設定する方法はありますか?マクロを登録しても行間が指定されず、困っています。
- アクティブブックの全シートのオートシェイプの行間をVBAで変更したいと考えています。参考URL等があれば教えていただけますか?
- Excel VBAを使用して、オートシェイプ内のテキスト行間を指定する方法について教えてください。
- ベストアンサー
excel VBA オートシェイプのテキスト段落
おはようございます。 【オートシェイプ内のテキスト行間を指定するプロパティ】 オートシェイプ内のテキスト行間を指定するプロパティはありますでしょうか? excel 2007で オートシェイプにテキストをいれた場合、 右クリックすると「段落」という項目がでてきて、 オートシェイプ内のテキストの行間を指定できたのですが、 オートシェイプ内のテキストの行間をVBAで指定することはできるのでしょか? (マクロを登録してもなにも記述されていないので、困っています。) 最終的にはアクティブブックの全シートのオートシェイプの行間を変更する VBAにしたいと思っています。 参考URL等あれば教えていただけませんでしょうか? よろしくお願いいたします。
- megane5050
- お礼率85% (30/35)
- Visual Basic
- 回答数1
- ありがとう数8
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
>オートシェイプ内のテキストの行間をVBAで指定することはできるのでしょか? > (マクロを登録してもなにも記述されていないので、困っています。) Excel2013では記録されました。 Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.SpaceWithin = 1.5
関連するQ&A
- オートシェイプの文字列の抽出について
エクセルのマクロについて教えてください。 今、オートシェイプで四角が描いてあり、その中にテキストで他のエクセルブックへのパスが記入してあります。 この状態から、オートシェイプ内のパスのブックを開き、開いたブックに何らかの処理をして、開いたブックを閉じるという処理をしたいと考えております。 処理を始めるトリガーは、他のオートシェイプをクリックするなどを考えております。 いろいろ試してみたのですが、オートシェイプ内に記述してあるテキストを抽出する方法が思いつきませんでした。(ここで使われているのはテキストボックスではなく、四角のオートシェイプです。) お詳しい方、どのようにすればよいか教えてください。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- ExcelVBA オートシェイプについて
セルの選択した場所のとなりにオートシェイプを移動させるマクロを組みたいと思っています 見かけがまったく同じシートが4枚あり、そのシート全てに同じマクロを指定したいのですが、オートシェイプの名前の指定の仕方が分からなく困っています SelectionChangeイベントでオートシェイプ移動のマクロを動かしているので、同じ名前のボタンならよいのですが・・・ なにかよい方法はないでしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセルVBAオートシェイプがあったら、の書き方
皆さんこんにちは。 エクセルVBAの初心者です。 IFを使った条件分岐が私には難しかったので SELECTCASEを用いてみようと思うのですが条件の書き方が分かりません。 やりたい事は セルA1が「文字が入っていない且つオートシェイプが入っていない場合」のみ アクション(オートシェイプ☆を貼る)を起こしたい、です。 イメージ的にこうなるかな?と思いコードを作成しましたが ケース2の「オートシェイプがあったら」という条件の書き方が分かりません。 Sub オートシェイプ貼り付け() With ThisWorkbook.Worksheets("Sheet1") Select Case True Case .Range("A1").Value <> "" Exit Sub Case オートシェイプがあったら Exit Sub Case Else オートシェイプ☆を貼る End Select End Sub オートシェイプの有無を条件にするにはどのような書き方をすれば良いでしょうか?
- ベストアンサー
- Excel(エクセル)
- JavaScriptで書き出したオートシェイプにテキストを挿入したいの
JavaScriptで書き出したオートシェイプにテキストを挿入したいのですができません。 先日、ExcelのシートにJavaScriptでオートシェイプを書き出す方法を質問した者です。 今度は書き出したオートシェイプにテキストを挿入したいのですが上手くいきません。 どうすれば良いのか教えてください。 ※またもやJavaScriptで解決したいです。 なお、現在悩み中のソースは以下のようです。 ※教えて頂いたソースほとんどそのままですが... function createShapes() { var excel = new ActiveXObject( "Excel.Application" ); excel.visible = true; var sheet = excel.Workbooks.Add().activeSheet; // オートシェイプ挿入:引数の105は吹き出しを示す sheet.Shapes.AddShape(105, 123, 37.5, 151.5, 94.5); // ココでメソッド、プロパティがないとエラーになってしまう... sheet.Shapes("AutoShape 1").Characters.Text = "ほげほげ"; } よろしくお願いします。
- ベストアンサー
- JavaScript
- EXCEL VBAについて
EXCEL VBAに詳しい方よろしくお願いいたします ユーザーからフォルダー指定してもらい そのフォルダー内に入っているすべてのブック、すべてのシートの検索、 (シート内にオートシェイプの中に文字を入れたものもアリ。検索対象。) そして、その検索にヒットしたシート名とブック名を別のテキストファイルに吐き出す。 それとは別に検索に引っかかった文字を青に置き換える(EXCELシート内)事は可能でしょうか? 文字の色は変わるのですがオートシェイプ内の色が変えられません。 何時間がんばりましたが、経験不足のためどうもうまくいきません。 どなたか親切な方、お教えいただけたら幸いです。
- 締切済み
- オフィス系ソフト
- エクセル:VBAでシート上のオートシェイプ以外の図形を消去したい。
お世話になります。 ★VBAでシート上のオートシェイプ以外の図形を消去したいのです。 No.1902175で、エクセルシート上の図形の削除方法をいろいろ教えていただきました。今回は、そのときにはあてはまらなかった、「オートシェイプをのぞく図形をVBAで削除したい」のです。 補足:シートは毎月のある行事等の予定表です。オートシェイプにはマクロを登録しているため消したくありません。その他の図は季節の行事に関するクリップボード等の図で、担当者がシートから毎月手作業で削除していたものです 以上、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル オートシェイプ
こんばんは! エクセルのオートシェイプについての質問です。 会社の稟議書を作成していて、上のほうに、オートシェイプで部長や課長のハンコを押す欄を作ろうと思ったのですが、うまくいきません・・・ エクセルで罫線を引いて、セル内に文字を入れるのは簡単なのですが、オートシェイプで作成する場合は、どのようにしたらよいでしょうか・・・ 四角形を挿入して、縦に二本オートシェイプで直線を引いて、横にも一本オートシェイプで直線を引いて、それをグループ化したまではよかったのですが、テキストをどのように入れたらよいのか分かりません・・・ 右クリックしても、テキスト追加できず、悩んでいます・・・ どなたかお分かりでしたら、お願いいたします。
- 締切済み
- オフィス系ソフト
- エクセルVBAでテキストボックスの値の取得と変更について
エクセルのVBAを使ってシート上のテキストボックスのテキストを取得・変更するマクロを作成したいと思っていますがうまく行きませんので、お知恵を拝借したいとおもいます。 環境:WindowsXPでオフィス2002 状況: エクセルブックa.xlsのシートに「コントロールツールボックス」のテキストボックスを配置(オブジェクト名はTEXTBOX_C) エクセルブックb.xlsにコードを書き、a.xlsのTEXTBOX_CのプロパティのValueかTextを取りだしたい 試した事: コントロールを配置したシートに次のマクロ TEXTBOX_C.Text = "これはコントロールのテキストボックス" を書くとテキストボックスに文字を入れ込めますが、別のエクセルブックからだと上手く行きません。 また、オートシェイプのテキストボックスの場合は簡単に出きるのですが、コントロールツールボックスではどうしても上手く行きませんので、対象法などご存知の方いらっしゃいましたら教えてください
- ベストアンサー
- Visual Basic
- 特定のオートシェイプだけ削除するVBA
エクセルで一枚のシートに複数のオートシェイプを使用したものがあります。 オートシェイプを使用しているセルの範囲は (A1:L22)と(M1:U22)の二箇所なのですが、 VBAで(A1:L22)の範囲にあるオートシェイプのみ削除する事は可能でしょうか? (A1:L22)内のオートシェイプは作業内容により毎回変わるので 形などは特定できません。 また、オブジェクトの選択で範囲指定をした後削除という方法もあるのですが この削除の作業の前後に他の作業のVBAを使用しているので VBAで削除が出来ればと思います。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのオートシェイプ内のテキスト置換
エクセル2007を使用しています。 オートシェイプ内のテキストを一括して置換したいと考えております。 便利なソフトやVBAを試してみたのですが、元の文字色が変わってしまいます。 オートシェイプ内の文字色は2,3色使用しており、その色を保持したまま、一部の文字だけ置換したいのです。そういったことは可能でしょうか。ちなみに置換したい文字色は1色です。 よろしくお願いいたします。
- ベストアンサー
- Excel(エクセル)
お礼
watabe007さん 回答ありがとうございました! >Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.SpaceWithin = 1.5 で設定できました!! Excel2013では記録できるんですねー! ありがとうございました!!!