エクセルで図形を、均等に並べるにはどうすればできますか？

図のように、縦線６本を並べて描くとき、この幅を例えば均等に20mmにしたい場合どのようにすればできますでしょうか？

何か簡単にできる方法はありませんでしょうか？

手動だと少しずれてしまいます。

No.8 ベストアンサー 回答者： ママチャリ 回答日時： 2017/07/23 14:47

均等に並んだ6本の線をグループ化して、その幅を10㎝に設定してみては。

この回答へのお礼

ありがとうございます。
こちらが、一番簡単で分かりやすかったです。

皆様の方法もとてもよく分かりました。
全て目からうろこでした。

今までの手動での苦労は何だったのだろう・・・

お礼日時：2017/08/17 00:19

No.7 回答者： mike_g 回答日時： 2017/07/22 18:59

次のような方法は如何？

１．先ず縦線１本を列 A、B 間に引く。
２．それをマウスで掴んで Ctrlキーを抑えたまま約100mm離れた右方にドラッグ
３．２本の縦線間が 100 になるよう、印刷＆微調整を繰り返す。
４．ステップ２と同じ操作で、当該２本間に３本の縦線を適当に配置
￣￣→その結果を添付図上段に示した。
５．Ctrl+G の後、[セル選択]をツン
６．"オブジェクト"にチェックを入れて[OK]をツン
７．Alt+JDAAM を実行→全部の縦線が上下中央に揃う！
８．Alt+JDAAH を実行→全部の縦線が左右均等にに揃う！
添付図下段のように完成！

No.6 回答者： enunokokoro 回答日時： 2017/07/22 18:13

No.5の回答者です。

No.4の回答者が説明しているものと同じでしたね。
回答を入力中に気が付かず、確認せずに投稿してしまいました。

この回答へのお礼

いえいえいえいえ

そんなことないです。

本当ありがとうございます。

目からうろこです。

お礼日時：2017/07/22 18:47

No.5 回答者： enunokokoro 回答日時： 2017/07/22 18:00

マクロを使わない方法です。

100㎜の横方向の線を用意します。

左端の縦線を横線の左端に合わせます。
右端の縦線を横線の右端に合わせます。
6本の縦線だけを選択しておき、リボンの[描画]ツールの[書式]タブにある
[配置]から[左右に整列]を選択します。
[上揃え]などで上下の位置も揃えることで、均等配置したものになります。
（横線に合わせるのも[配置]から[右揃え]などを使い揃えられます）
https://digitalfan.jp/71736
http://121ware.com/qasearch/1007/app/servlet/rel …

No.4 回答者： CoalTar 回答日時： 2017/07/22 17:46

20mmってCADみたいなことをしますね。

向かない作業です。
EXCELでは印刷したとき、縦横比が若干変わるのは覚悟しましょう

1. 10cmの横幅の長方形を作ります((6本-1)*20mm=100mm)
2. 一番左の線と1.の長方形を選択し、書式 - 配置 - 左揃え
3. 同様に一番右の線と1.の長方形を選択し、書式 - 配置 - 右揃え
4. 長方形は消す(Delete)
5. 基準となった2本の線の間に残りの4本の線を入れます
6. 6本の線を選択して 書式 - 配置 - 左右に整列

No.3 回答者： te12889 回答日時： 2017/07/22 17:36

その線分を全て選択状態にする方法はご存知ですか？

それができれば、「左右に整列」コマンドで、両サイドの線分の間で均等に並びます。ほかに「上揃え」などのコマンドも、その近くにあります。図形を選択したときのリボンやツールバーに注目してください。

No.2 回答者： soixante 回答日時： 2017/07/22 17:22

解像度によって、１ピクセルが何ミリというのが変わるみたいなので、

あなたの意図にそぐっているか分かりませんが以下お試しください。

～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
１．Alt + F11

２．別画面（VBE）が開きますので、Alt + I, M

３．なにやら真っ白な画面が開いたと思いますが、そこに以下をコピペ
'----------------------------------------------------------
Option Explicit
Sub aaaaaaa()
Dim k As Integer
For k = 1 To 6
With ActiveSheet.Shapes(k)
.Select
.Left = ActiveSheet.Shapes(1).Left + 75.758 * (k - 1)
.Top = ActiveSheet.Shapes(1).Top
.Width = ActiveSheet.Shapes(1).Width
.Height = ActiveSheet.Shapes(1).Height
End With
Next k
Cells(1,1).Select
End Sub
'----------------------------------------------------------

４．上記コードの　Sub　～～　End Sub の間ならどこでもいいので、
　そこにカーソルを持っていったうえで、F5キー。

５．そろったはずです。間隔が気に食わない場合は最終行参照。

＜あとかたづけ＞
６．上のコードを貼った部分の左側に「標準モジュール」---「Module1」と言うのがあると思いますので、
　　それを選択し、右クリック。
　　「Module1の解放」　を選ぶ。

７．～～エクスポートしますか　　・・・　「いいえ」

８．２で開いた画面を閉じる。

終わり。

※間隔がいまいちならば、コードの中の「75.758」のところをいじくったうえで、「F5」キーを押してください。

No.1 回答者： neKo_deux 回答日時： 2017/07/22 17:19

[Alt]キーを押しながらドラッグ＆ドロップすると、セルの枠にスナップしますから、予めセルを等間隔にしといてスナップさせるとか。