• ベストアンサー

VBAでのオートシェイプの整列機能について質問です。

VBAでのオートシェイプの整列機能について質問です。 VBAで複数のシェイプを作成しました。 それを水平方向や垂直方向に整列させたいと考えています。 各グループアイテムを選択後 水平方向（垂直方向）に整列 全て選択してグループ化 みたいな感じにしたいと考えています。 アドバイスよろしくお願いいたします。m(_ _)m

質問者が選んだベストアンサー

  • ベストアンサー
noname#187541
noname#187541
回答No.1

こんばんは。 手動でのやり方は分かりますか？ 分かるのであれば、後は「マクロの記録」をすれば分かるでしょう。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VBAでオートシェイプのグループ化についての質問です。

    VBAでオートシェイプのグループ化についての質問です。 オートシェイプ線（Line）で台形を作成し全てを選択し、グループ化したいと考えています。 また、連続して台形を作成していきたいと考えています。 ?4本線を引く ?グループ化（Aグループ） ?4本線を引く ?グループ化（Aグループ） 　⇒　連続して作成・・・ Dim st() As Variant Dim ob As Shape Dim MyLine As Shape '線の作成 Set MyLine = ActiveSheet.Shapes.AddLine(startX, startY, widthX, heightY) '線の選択 For Each ob In ActiveSheet.Shapes 　　ReDim Preserve st(j) 　　st(j) = ob.name 　　j = j + 1 Next ob 'グループ化 Worksheets("test").Shapes.Range(st).Select Selection.ShapeRange.Group.Select と上記コードで一つのグループは作成出来たのですが、次に作成すると Worksheets("test").Shapes.Range(st).Select Selection.ShapeRange.Group.Select でエラーになります。 恐らく前のグループ化内の線も選択してしまうのではないかと思っていますが、対処の仕方が解りません。 線の作成方法から選択方法等いろいろ意見が聞きたいと思っています。 アドバイスよろしくお願いいたします。 m(__)m

  • ExcelでVBAを利用してオートシェイプ情報取得

    Excelのオートシェイプをテキストデータに変化するVBAを作成したいです ただし対象となるオートシェイプは複数のオートシェイプがグループ化された グループオブジェクトになっています それら特定のパターンを持つオートシェイプオブジェクトの一群があり 1つ1つには想定される名称が存在します 具体的な操作としては複数のオートシェイプオブジェクトを横に並べたイメージダイアグラムを 作成し、それらにそって対応するテキストを配置していきたいというものです このようなオートシェイプの情報をうまく拾う方法、テキストデータと紐づける方法はありませんでしょうか よろしくお願いいたします

  • 特定のオートシェイプだけ削除するVBA

    エクセルで一枚のシートに複数のオートシェイプを使用したものがあります。 オートシェイプを使用しているセルの範囲は （A1：L22）と（M1：U22）の二箇所なのですが、 VBAで（A1：L22）の範囲にあるオートシェイプのみ削除する事は可能でしょうか？ （A1：L22）内のオートシェイプは作業内容により毎回変わるので 形などは特定できません。 また、オブジェクトの選択で範囲指定をした後削除という方法もあるのですが この削除の作業の前後に他の作業のVBAを使用しているので VBAで削除が出来ればと思います。 よろしくお願いします。

  • オートシェイプの中の文字の配置について

    ワードでオートシェイプの中の文字の配置を水平方向の中央揃えは簡単ですが垂直方向の中央揃えをするのは可能でしょうか。 あちこち探したのですがどうもその設定をするところが見つかりません。 宜しくお願い致します。

  • イラストレーターでオートシェイプ機能を使いたいのですが？

    イラストレーターにExcelとかで使うオートシェイプ機能というのはついていますでしょうか？ マニュアルを読むと、オブジェクトで長方形とか星型とかを選択して、自分で任意に変形してくださいといように 書いてあるのですが、それだと時間がかかってしまいます。 今のところ、Excelのオートシェイプをコピペしているのですが、もともとイラストレーターについているオートシェイプ機能というのはないのでしょうか？　まだ初心者で使い慣れないのでこんな質問をしてすいません。どうぞよろしくお願いいたします。

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

    すいませんが、オートシェイプについて教えてください。 同じオートシェイプを複数描くにはどうすればよいのでしょうか？たとえば、基本図形から円を選択して引きます。つづけて、円を再度引きたい場合、また基本図形から円を選択して引くしか方法はないのでしょうか？ 一度選択した図形を連続して描く方法を教えてください。

  • エクセル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 オートシェイプの有無を条件にするにはどのような書き方をすれば良いでしょうか？

  • オートシェイプが消えたり出たりする

    Windows 7+ Excel 2013を利用しています。 オートシェイプを200個位(四角、丸）入れています、重ね合わせはありません。 エクセルで職場のレイアウトを作成・更新しているのですが、 突然、全てのオートシェイプが表示されなくなり、オートシェイプがあるあたりの セルをクリックしたら、幾つかのオートシェイプが表示され、マウスを動かすと オートシェイプが消えてしまいます。 また、別のセルをクリックしたら、先とは、違うパターンで幾つかオートシェイプが 表示され、マウスを動かすと、何個かオートシェイプが表示されたまま、他のが消えます。 オブジェクトの選択と表示では、全て表示になっていますが、一旦、全て非表示にして、全て表示にしても、全く、オートシェイプが表示されません。 慌てて、保存せずに、終了して、パソコンを再起動、変になったエクセルブックを開いても直っていません。 仕方なく、先月のブックをコピーして、修正しています。 変になったエクセルブックですが、他のパソコン何台かで開いても同じようになります。 マクロでもあるのかと思い、Alt + F10を押してみましたが、コードは書かれていません。 諦めかけていたら、調べていないＰＣから開いたら、表示されています。 そこで、そのＰＣで上書き保存してから、変になったＰＣで開いたら、表示されています。 何故なんでしょうか？ エクセルブックは、壊れてなかったんでしょうか？

  • WORD2000，オートシェイプについて

    複数のオートシェイプの中の文字のフォントを一括して変更する方法を教えてください。お願いします。図形のグループ化と関係ありますか？ 一つ一つ選択し、フォントを変更しているため非常に苦労しています。

  • wordのオートシェイプの中の文字の設定

    word2003で、オートシェイプを使って絵を描いているのですが、うまくいかないので困っています。 内容は、「オートシェイプで書いた画像の中の文字を、上下中央ぞろいに出来ない」というものです。 長方形の図の中に文字を書いた場合、文字が図の中央に来るようにしたいのですが、うまくいきません。 水平方向の中央へは移動出来たのですか、垂直方向の中央に文字を移動させることが出来ないのです。 良い方法をご存知の方がいらっしゃいましたら、よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する