[[20060912133004]]　『シート別の円グラフの大きさを揃える』（名無し0912）　ページの最後に飛ぶ

『シート別の円グラフの大きさを揃える』（名無し0912）

バージョン：Excel2003

エクセルの円グラフなのですが、シート別に５つあるのですが、
その円グラフを、１つのシートにまとめてます。

けど、それぞれ、円の大きさが異なってきちゃいます。
円の大きさをそれぞれ揃えるにはどういうやり方をすればいいですか？

 グラフエリアの大きさを揃えても
 同じ大きさにならないですかね？

 (HANA)

 　
何個かのグラフを選択して、右クリックの
「オブジェクトの書式設定」で
サイズと角度設定で選択されたグラフの大きさは
同じになるのですが、
そこで、編集作業として、文字の大きさ・字の間隔を
揃えたりすると円の大きさが、変わってきちゃいます。
円の大きさが変わらないように編集できる事はできないでしょうか？？

 >文字の大きさ・字の間隔を揃えたりすると円の大きさが、変わってきちゃいます。
 揃えた後で、一番大きいグラフエリアに他の４つをそろえるのではダメですか？

 円の大きさが変わるのがよく分からないのですが、
 たとえば、文字の大きさが大きくなったから
 エクセル君が「入らないじゃない。おおきくしよっと」
 と、勝手に大きくしてくれてしまっているのなら
 エクセル君が「グラフエリアを大きくしなくては！！」と
 思うようなことをしなければいいような気がします。

 十分にグラフエリアを大きくしておいた後でも書
 文字の大きさを揃えると円の大きさが変わってしまうのですか？

 もしかして、グラフエリアの大きさと文字の大きさと円の大きさは
 相関関係がないのかな？

 たとえば、同じデータでいくつかグラフを作った後に
 文字の大きさや間隔を揃えると円の大きさがかわる？

 そもそも、「揃える」は何と何を揃えるのでしょう？

 <お願い>ですが
 ここはHN(ニックネーム)は自動的に追加されませんので
 文章のわかりやすいところにご署名をお願いします。

 (HANA)

 経験上のハナシで恐縮ですが、グラフを作成した時はプロットエリア(円の大きさ)は
 自動的に調整されるモードになっているように感じます。
 一度プロットエリアの大きさを変えると、それ以降は自動調整されなくなる様です。

 円の大きさが揃っているときにプロットエリアを少しだけ変更してから、文字の調整を
 すると良いと思います。
 (ちゅうねん)

おじゃまします。

 ちゅうねんさんと同様に経験則でのお話しですが、
 グラフエリアの大きさはプロットエリア(円グラフ)の大きさには影響されない筈です。
 また、グラフエリアは「オブジェクトの書式設定」で大きさの設定は出来ますが、
 プロットエリアは一般機能では設定できませんが、ＶＢＡなら可能です。

 　★例えばこんなグラフなら
 　　　↓この外枠がグラフエリア
 　┌────────────────┐
 　│　　　０　20　40・・・　　　　　│
 　│　　　●────┬────┐　　│
 　│　　Ａ│　　　　│　　　　│　　│
 　│　　　├──┬─●　　　　│　　│
 　│　　Ｂ│　　│　　　　　　│　　│
 　│　　　├─┬┘　　　●　　│　　│
 　│　　Ｃ│　│　　　　　　　│　　│
 　│　　　├┬┘　　　　　●　│　　│
 　│　　Ｄ││　　　　　　　　│　　│
 　│　　　├┴┐　　　　　　●│　　│
 　│その他│　│　　　　　　　│　　│
 　│　　　└─┴───────●　　│
 　│　　　↑この内枠がプロットエリア│
 　└────────────────┘
　
 なので、どうしても円グラフの大きさを揃えたいのであれば、文字の大きさ・字間隔などの
 編集作業が終わった後にＶＢＡでプロットエリアの大きさを設定してみてはどうでしょうか。
 グラフが複数あるようですので、ＶＢＡを使えば簡単ですしね。

 ■プロットエリアを揃えるサンプルマクロ
 「マクロの記録」を使ってプロットエリアのサイズ・位置を変更したら下のコードに
 なりました。これをご自身の環境に合わせてアレンジすれば宜しいかと思います。
 ただ、私自身はＶＢＡを得意としておりませんので、コードの改造などは他の方に
 フォローして頂けましたら幸いです。

 Sub Macro1()

 　ActiveSheet.ChartObjects("グラフ 1").Activate
 　ActiveChart.PlotArea.Select
 　Selection.Top = 15　　　　　　'グラフエリアからプロットエリアまでの上端距離
 　Selection.Left = 4　　　　　　'グラフエリアからプロットエリアまでの左端距離
 　Selection.Height = 197　　　　'プロットエリアの高さ
 　Selection.Width = 237　 　　　'プロットエリアの幅

 End Sub

 少しでもお役に立ちましたら幸いです。m(_ _)m　(ブックマーク)

コメント返信：

[ 一覧(最新更新順) ]

[[20060912133004]] 『シート別の円グラフの大きさを揃える』（名無し0912） ページの最後に飛ぶ

[[20060912133004]]　『シート別の円グラフの大きさを揃える』（名無し0912）　ページの最後に飛ぶ