[[20190323195359]]　『積み上げ縦棒グラフの色の変更について』（なーな）　ページの最後に飛ぶ

『積み上げ縦棒グラフの色の変更について』（なーな）

Excelの積み上げ縦棒グラフで1月ごとに3本のグラフを横に並べて項目間の比較をしています。

1月　部署A(内容aと内容bの積み上げ縦棒グラフ)
　　部署B(内容aと内容bの積み上げ縦棒グラフ)

     部署C(内容aと内容bの積み上げ縦棒グラフ)

2月　部署A(内容aと内容bの積み上げ縦棒グラフ)
　　部署B(内容aと内容bの積み上げ縦棒グラフ)

     部署C(内容aと内容bの積み上げ縦棒グラフ)

・・・

この場合に、部署Aのグラフは赤系、部署Bのグラフは青系、部署Cのグラフは緑系のようにグラフ間で色を変えるにはどうしたらよいのでしょうか？

1箇所ずつ選択して変えていくしかないのでしょうか？

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

どんなグラフかわかっていませんが
１つのグラフで設定したら、それをテンプレートに登録してはどうでしょうか。

（マナ） 2019/03/24(日) 11:29

 もしもグラフがデフォルトの配色のままなら、ページレイアウトタブにあるテーマまたは配色を変更すれば
グラフも変わるんで、変えてみるのはどうだろう？
 何なら配色を自分で好きなように変更してしまえばいいんじゃないかな。

（1111） 2019/03/25(月) 10:15

1か所というか、部署どれか1つの棒グラフ部分を左クリック、右クリックし、「データ系列の書式設定」で、部署毎に色を変えていくだけですよ。 1つ変えれば、12か月分全て同じ色になります。部署が100ある…とかなら、ご愁傷様ですが、そんな部署数が1本の棒になっていても詳細は意味不明になるだろうし、せいぜい10部署程度ですよね？
（???） 2019/03/25(月) 10:26

 こんにちは。
 最初読んだとき、こういう1つのグラフなのかと思いましたが．．．

    │
    │□  □    □        □
    │□□□  □□□  □  □
    │■□□  □□■  □□□
    │■■□  ■□■  ■■■
    │■■■  ■■■  ■■■
    ┼───┼───┼───┼──
    │ＡＢＣ│ＡＢＣ│ＡＢＣ│
    │ 1月  │ 2月  │ 3月  │

 グラフといっているのは、縦棒のことではないかと。
 本当にグラフが3枚あるであれば、その方が簡単だと思いますが。
 どうなんでしょうね。
（でれすけ） 2019/03/25(月) 10:47

使える2016が手元にないので一般的な回答をしたのですが、もしかして、こんな作り方ですかね？
https://hamachan.info/win7/Excel/tumigraph.html

これだと、3部署全て同系列（内容a,bで別色）なので、部署毎に色を変えるとなると、1本ずつ…でしょうか。マクロで着色するにしても、面倒そう。
（???） 2019/03/25(月) 11:21

思ったほど面倒でもなかったので、着色マクロ例なぞ。（月の間に空欄を開けていないとして、部署3つ、内容2つの場合）

 Sub test()
    Dim i As Long
    Dim j As Long

    With ActiveSheet.ChartObjects(1).Chart
        For i = 1 To .SeriesCollection(1).Points.Count Step 3
            .SeriesCollection(1).Points(i).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
            .SeriesCollection(2).Points(i).Format.Fill.ForeColor.RGB = RGB(255, 128, 128)
            .SeriesCollection(1).Points(i + 1).Format.Fill.ForeColor.RGB = RGB(0, 0, 255)
            .SeriesCollection(2).Points(i + 1).Format.Fill.ForeColor.RGB = RGB(128, 128, 255)
            .SeriesCollection(1).Points(i + 2).Format.Fill.ForeColor.RGB = RGB(0, 255, 0)
            .SeriesCollection(2).Points(i + 2).Format.Fill.ForeColor.RGB = RGB(128, 255, 128)
        Next i
    End With
 End Sub
（???） 2019/03/25(月) 11:55

コメント返信：

[ 一覧(最新更新順) ]

[[20190323195359]] 『積み上げ縦棒グラフの色の変更について』（なーな） ページの最後に飛ぶ

[[20190323195359]]　『積み上げ縦棒グラフの色の変更について』（なーな）　ページの最後に飛ぶ