エクセルやワードにおける図の作成

エクセルやワードで四角の図を作成し、それを２等分、３等分、…ｎ等分、もしくは等分ではなく1：2　等（任意の比率）に分割するような線を引くことはできますか？
四角と直線を画面上で重ねれば、四角を分割する線は引けているように見えますが、その方法だと線の端が四角から僅かにはみ出たり、逆に四角の辺に線の端が届いていなかったりということで、手作業（アナログ）による微妙な調整で繋がっているように見せる必要があり、仮に見た目は上手くいっても、多少ズレていたり、四角又は線の片方でも動かしてしまえば、元通りの繋がっている状態に戻すのは一苦労です。（四角と線を両方選択して同時に動かせば、後者の問題は生じませんが…）
これを完全に解消するような“四角の辺”と“線の端”の完全な繋ぎ方はあるのでしょうか？
例えばコネクタを使えば、各辺の中点同士なら結ぶことができますので、２等分に限れば可能ですが、２等分以外は…。

ご存知の方いらっしゃいましたら、教えて頂きたく、宜しくお願いします。

No.5 ベストアンサー 回答者： koko88okok 回答日時： 2007/03/08 18:21

図形描画ツールバーの「図形の調整」→「配置/整列」を利用すれば困難ではないと思います。

オートシェイプで四角形に２本の直線を使って、田の字に配置する場合の１例を下記します。

1) 四角形の辺と同じ長さの直線を用意します。
2) 四角形と直線を選択します。

3) 「図形の調整」→「配置/整列」→「左右中央揃え」と「上下中央揃え」を操作します。
4) 「日の字」の形またはその90度回転した形になります。

5) 「日の字」の形またはその90度回転した形をグループ化します。
6) これともう1本の直線を選択して、3)と4)を繰り返しますと田の字形が完成します。

ｎ等分の場合は、「図形の調整」→「配置/整列」で表示される「左揃え」「左右中央揃え」「右揃え」などを駆使すれば微調整をしなくてもオートシェイプを正確に揃えることができます。

「図形の作成（オートシェイプ）」
http://www.geocities.jp/ogino2600x/1503.html

上のURLで、最後の方をご覧ください。

No.7 回答者： Cupper 回答日時： 2007/03/08 20:46

基本的に無理です。

Excel や Word で扱うオブジェクト（図形）は短形として扱われますので、変形や回転を伴なう描画は得意ではありません。
このように Excel や Word の描画機能はあくまでもオマケですので高機能を求めてはいけません。
Microsoft社の製品であれば Visio 辺りが受け持つ分野になります。
…使ったことがないので詳しくは知りませんが…
自分なら他社の CADソフトや Adobe社の Illustrator で作成したのちに画像ファイルとして貼り付けを行うことを選びます。

どうしても Excel や Word で作成する必要があるのであれば、図形の外形を1つ上のサイズの線で描画してください。
内側に引く線の長さをシビアに設定する必要がなくなりますし、場合によっては図形そのものを視認しやすくなります。

No.6 回答者： imogasi 回答日時： 2007/03/08 20:05

VBAでやってみました。

できるようです。ご参考に。
下記３図形（四角、直線、直線）の名前は、質問者の場合の名前ボックスで確認し、そちらの名前に、変えてください。テスト実行するごとに変わります。なお番号は半角スペース＋半角番号数字ですから
全角と間違えないこと。
図形のグループ化をしています。
Sub test03()
W = Worksheets("Sheet1").Shapes("四角形 8").Width
t = Worksheets("Sheet1").Shapes("四角形 8").Top
l = Worksheets("Sheet1").Shapes("四角形 8").Left
h = Worksheets("Sheet1").Shapes("四角形 8").Height
Worksheets("Sheet1").Shapes.AddLine l + W / 3, t, l + W / 3, t + h
Worksheets("Sheet1").Shapes.AddLine l + W * 2 / 3, t, l + W * 2 / 3, t + h

End Sub
Sub test04()
Worksheets("Sheet1").Shapes.Range(Array("四角形 8", "直線 11", "直線 12")).Select
Selection.ShapeRange.Group.Name = "３分割"
End Sub
（１）四角の移動に対し直線２本も連れもて動く。
（２）サイズの拡大縮小に対し直線も拡大縮小に応じる。
（３）四角の上辺の線にぴったりくっついている。

No.4 回答者： enunokokoro 回答日時： 2007/03/08 17:59

Word2002以降なら簡単に設定できると思います。

嫌われ者の[描画キャンパス]を[四角]や[円]などに変更してから、そこ
に[直線]を割りたい本数分適当な間隔で配置します。
[ Shift ]キーや[ Ctrl ]キーを押しながらコピーして移動することで
複数の直線を配置し易くなります。

中の複数の[直線]だけを選択状態にしてから以下の設定をします。
[図形描画]ツールバー→[図形の調整]→[配置/整列]→選択メニューの下
にある[キャンバスに合わせる]を選択します。
これで描画キャンバスに合わせて中のオートシェイプが配置できます。
もう一度[図形の調整]→[配置/整列]で[左右に整列]や[上下に整列]を
選択すると均等に[描画キャンバス]内で配置されます。

描画キャンパスを四角や円に変更する方法は、[図形描画]ツールバー→
[図形の調整]→[オートシェイプの変更]→[基本図形]で希望の図を選択
して変更します。
この場合、[描画キャンバスの書式設定]から[線]の色や[塗りつぶし]の
色を指定すれば普通のオートシェイプと同じ扱いが出来ます。

Word2000以前のバージョンやExcelではこの方法が出来ないので、直線
を配置してから、それに合わせて四角や円などを背面に配置するなどで
対応するしかないかなと思います。

No.3 回答者： haruko2005 回答日時： 2007/03/08 17:23

すみません、補足です。

この方法だと「グリッド線に合う」描き方しかできなくなるので
円に対してナナメに線を引くのときには
どうしても直線が円周上からはみ出してしまいます。
そんなときには、これもアナログな方法なのですが
［表示］＞［ズーム］で倍率を上げます。（200％とか。）
かなり細かいところまで見れますので、
グリッド線に合わせる設定を外して、微調整してください(^^ゞ

No.2 回答者： haruko2005 回答日時： 2007/03/08 17:15

こんにちは。

アナログな方法と言えば、アナログな方法なのですが…。

■Excelの場合
列幅と行の高さを細かくしておく。
好みによりますが、列幅「1」、行の高さ「8」など。
↓
［図形の調整］＞［位置合わせ］＞［グリッド］をONにする。
※［図形の調整］は画面の下のほうにあることが多いです。
出ていなければ ［表示］＞［ツールバー］で「図形描画」をONにすると出てきます。
↓
これを設定した後に新しく描いた図形は
列と行の線にピッタリ合いますので、ずれずに描くことができます。

■Wordの場合
［図形の調整］＞［グリッド］で
「描画オブジェクトをグリッド線に合わせる」にチェック。
「文字グリッド線の間隔」を小さめに。
「行グリッド線の間隔」も小さめに。
「グリッド線を表示する」にチェック。
「文字グリッド線を表示する間隔」もチェック。
※［図形の調整］が出ていなければExcelと同様に出せます。
↓
これを設定した後に新しく描いた図形は
グリッド線にピッタリ合いますので、ずれずに描くことができます。

試してみて、自分が描きたい精度に合わせて
列幅、行の高さ、グリッド線の間隔など
調整すると使いやすくなると思います。

No.1 回答者： mshr1962 回答日時： 2007/03/08 16:18

四角をコピーしてｎ個並べてグループ化して

元の四角の大きさにすればn等分されたように見せるのは可能です。

この回答へのお礼

確かに四角をコピーして、それをスライドさせて重ねることで、見た目は、四角の中に線を引いたように見えますので、それらをグループ化すればズレることは無いでしょうけど、やはりそのようなアナログな方法しか無いのでしょうか…。それだと、きっちりとした比率には分けることができませんよね。あと、四角形ではなく円形を線で分割するのは無理ですよね。（すみません、説明不足でした。質問時には四角のみを例にしましたが、要するに、三角形や円形、台形といったあらゆる図形において、辺のちょうど上に線の端を合わせる方法があれば知りたいと思っていました。）

ご回答ありがとうございます。

お礼日時：2007/03/08 17:00