[[20230707080942]]　『複数グラフの一括設定方法』（どしろーと）　ページの最後に飛ぶ

『複数グラフの一括設定方法』（どしろーと）

１シートに複数グラフが並べてある場合に、設定を一律で変更する方法はないでしょうか？
例えば、月別降水量の折れ線グラフが東京、名古屋、大阪、札幌、福岡の
5都市分並んでいたとします。
この折れ線は実績は実線、翌月以降の予想は点線で表示しており、
直近実績を点線から実線に毎月変えたいですが、
グラフ一つ一つを変えると時間かかって面倒なので、
５グラフ全て選択して実線に変えたいと思ってます。

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

＞直近実績を点線から実線に毎月変えたいですが、
データを変更しない限り無理では。
（わからん） 2023/07/07(金) 08:56:11

一括とはいきませんが（プログラミングでもしない限り？）
書式であれば、グラフ１からグラフ２にコピーできますよ。

グラフ１（全体）をクリックして、ホームタブ＞コピー
グラフ２（全体）をクリックして、ホームタブ＞貼り付け＞形式を選択して貼り付け＞書式

グラフ１が実線であれば、グラフ２も実線になるかと思います。

コピー先として複数のグラフを同時に指定すると、うまくいかないようです。

参考
https://prau-pc.jp/excel/graph-format-copy/
（ゆたか） 2023/07/07(金) 10:56:50

 実績と予想で系列を変えておけば、
 実績のデータを入力すればその時点で線が延びるし
 予想のデータを削除すればその時点で線が消えるので
 グラフの書式を都度変更する必要がなくなります。　
（´・ω・`） 2023/07/07(金) 11:55:11

 別のアプローチですが、テンプレートを利用するのはどうでしょう。
 一つのグラフで実線を一期伸ばしたものを、テンプレートに保存します。
 そのあとで、以下のマクロを実行すると、そのシートの全てのグラフに対して、
 テンプレートを適用できます。

 Sub test()
     Dim s As String
     Dim chartObj As ChartObject
     s = "テンプレートファイルのフルパス"
     For Each chartObj In ActiveSheet.ChartObjects
         chartObj.Chart.ApplyChartTemplate s
     Next
 End Sub

（xyz） 2023/07/07(金) 13:23:22

コメント返信：

[ 一覧(最新更新順) ]

[[20230707080942]] 『複数グラフの一括設定方法』（どしろーと） ページの最後に飛ぶ

[[20230707080942]]　『複数グラフの一括設定方法』（どしろーと）　ページの最後に飛ぶ