等高線グラフ

　これを、サーモカメラ画像のように、高いところは赤く低いところは青く表示されるようにしたいケースは多々あります。
　例えば、下の図のような配色であれば、データの凹凸が認識しやすくなります。

　このような配色パターンの変更は、手動では非常に手間がかかるため、VBAを用いて凡例表示のカスタマイズを行ないます。
　そのプログラムは、比較的短いソースで記述できますので紹介します。

※ソースの原型は下記サイトに掲載されていたものです。
http://infinite-trouble.seesaa.net/article/453507450.html

　手動では凡例のオプション操作でもできますが、少し手間のかかる作業なので、これを一括変更させるマクロを紹介します。

※ソースの原型は下記サイトに掲載されていたものです。
http://infinite-trouble.seesaa.net/article/453506932.html

　また、ソース中 PresetMaterialに設定する値については下記MSのサイトの記事も参考にしました。
https://docs.microsoft.com/ja-jp/dotnet/api/microsoft.office.core.msopresetmaterial?view=office-pia

　上記紹介のマクロの、ソースファイル(.bas)です。
　Excelのマクロファイル(.xlsm)にインポートして使用して下さい。

　Excel上でグラフを選択した状態で、「開発」ー［コード」グループー「マクロ」から実行します(右図)。
　※「開発」タブ表示は、Excelのオプションの「リボンのユーザー設定」から行います。

　以下の2種類のマクロが利用できます。
　　set_contour_color：等高線グラフの色設定用マクロ
　　set_map_disp：等高線グラフの色平坦化設定マクロ