Excelグラフで特定のデータの色、透明度、テクスチャ、パターンを変更したり、戻したりする：VBA／マクロ便利Tips

グラフを指定した色に変更する

　グラフの色は、何も指定しないとExcelが自動的に決定して表示される。グラフを指定した色に変更する処理を行うと、自分の気に入った色に指定できる。

　Tips「特定のデータのグラフにデータラベルを表示する」同様、特定のデータを指定するのにChart.SeriesCollectionメソッドを使う。｛インデックス番号｝は、今回は「薬師寺」「夏目」「阪神」「正岡」の4名としているので、1〜4となる。

　変更するグラフの色を指定する方法はTips「凡例の背景を塗りつぶす色を指定する」同様、Format.Fill.ForeColor.RGBプロパティを使う。

　「グラフを指定した色に変更する」という新しいシートを作成して、Tips「特定のデータのグラフにデータラベルを表示する」の図6をそのまま全部コピーしておく。

　Module1内にリスト1のコードを記述する。

Sub グラフを指定した色に変更する()
  Dim 番号 As Integer
  Range("B3:F9").Select
  If ActiveSheet.ChartObjects.Count > 0 Then
    ActiveSheet.ChartObjects(1).Delete
  End If
   
On Error GoTo myError
  番号 = Range("O3").Value - 1
  With Range("H2")
    ActiveSheet.Shapes.AddChart Left:=.Left, Top:=.Top, Width:=Range("H2:M9").Width, Height:=Range("H2:M9").Height
  End With
  ActiveSheet.ChartObjects(1).Chart.SeriesCollection(番号).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
myError:
  Exit Sub
End Sub

　まず2行目でInteger型変数「番号」を宣言し、3行目でグラフを作成するための元になるデータ「B3:F9」を選択する。4〜6行目では、セル上にすでにグラフが作成されている場合は、Deleteメソッドで削除して初期化している。

　コンボボックスの「氏名を選択」を選択するとエラーが発生するので、8行目以降はエラー処理を行っている。

　9行目で変数「番号」にコンボボックスから選択された値を表示するセル「O3」の値を格納する。実際のインデックス番号より「-1」しておく。「-1」しておく理由はTips「特定のデータのグラフにデータラベルを表示する」の解説を参照。

　10〜12行目では、セル「H2」を基準に、「H2:M9」の範囲にグラフを作成する。

　13行目では、変数「番号」に該当する人物のグラフの色を、赤に変化させる。RGB関数の色の割合については、「RGB関数（Visual Basic）- MSDN」を参照してほしい。色を変えたい場合は、RGB関数の値を変えることで対応できる。

　ここの処理では、まず選択された氏名のグラフが赤に変化する。次にコンボボックスから別の名前を選択した場合は、すでに表示されているグラフを削除して新しくグラフを作成し、選択された氏名に該当するグラフの色を変えている。この処理を行わないと、一つのグラフの中で該当する人物のグラフが赤になるため、最終的には全て赤のグラフになり、目的とは異なる結果を招くからだ。

　実行すると、図1のようにコンボボックスより選択された人物のグラフが赤に変化する。

図1　指定されたグラフが赤に変化した

グラフの透明度を設定するTransparencyプロパティ

　次にグラフの透明度を設定する方法について解説する。シートを新たに追加して、図2のような生徒別の各科目の点数のデータを作っておこう。このグラフはExcelメニューの［挿入］→［グラフ］と選択して作成したものだ。

図2　生徒別の各科目の点数のデータをグラフ化している

　ここに表示されているグラフの透明度を変化させてみよう。グラフの透明度を設定するTransparencyプロパティの書式は下記のようになる

　先ほど同様RGB関数で、色を決め、Transparencyプロパティに｛透明度｝を指定する。値は「0（不透明）」〜「1（透明）」を指定する。

　図2に｛透明度｝を入力するセルと、Excelメニューの［開発］→［挿入］と選択して「フォームコントロール」の中からコンボボックスを選択して配置しておこう。コンボボックスを選択してマウスの右クリックで表示される［コントロールの書式設定］を選択し、表示される画面の［コントロール］タブ内の［入力範囲］や［リンクするセル］を指定する方法もTips「特定のデータのグラフにデータラベルを表示する」と同じなので、そちらを参照してほしい（図3）。

図3　｛透明度｝を入力するセルと、氏名を選択するコンボボックスを配置した

　実際にマクロを記述してみよう。Module1にリスト2のコードを記述する。

Option Explicit
Sub グラフの透明度を設定する()
  Dim 番号 As Integer
  Range("B3:F9").Select
  If ActiveSheet.ChartObjects.Count > 0 Then
    ActiveSheet.ChartObjects(1).Delete
  End If
  
On Error GoTo myError
 
  If Range("P2").Value = "" Then
    MsgBox "透明度を入力してください。"
    Exit Sub
  End If
  
  If Range("P2").Value > 1 Then
    MsgBox "透明度の値は0〜1の間です。"
    Exit Sub
  End If
 
  番号 = Range("U2").Value - 1
 
  With Range("H2")
    ActiveSheet.Shapes.AddChart Left:=.Left, Top:=.Top, Width:=Range("H2:M13").Width, Height:=Range("H2:M13").Height
  End With
 
  With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(番号).Format.Fill
    .ForeColor.RGB = RGB(255, 0, 0)
    .Transparency = Range("P2").Value
  End With
myError:
  Exit Sub
End Sub

　コードについては大体先ほどと同じだ。29行目で赤に変化させたグラフの透明度を決める。Transparencyプロパティに、セル「P2」に入力した透明度を指定する。11〜19行目で｛透明度｝の入力値に対してチェックを行っている。

　コンボボックスを選択して、マウスの右クリックで表示されるメニューから「マクロの登録」を選択し、リスト2のマクロを関連付け実行すると、図4のようにコンボボックスで選択された人物のグラフが赤に変化し、指定した透明度が適用される。

図4　コンボボックスから選択した人物のグラフの色を赤にして、透明度を「0.8」に指定している

　他のグラフと比較してみると、透明度の設定されたグラフは、背景の「目盛り線」が透けて見えているので判断できる。グラフを赤に指定したのに「ピンク」に見えるのは、透明度が設定されているためである。

グラフにテクスチャを設定するPresetTexturedメソッド

　グラフにはテクスチャも指摘できる。PresetTexturedメソッドの書式は下記の通りだ。

　｛インデックス番号｝は、今回も「薬師寺」「夏目」「阪神」「正岡」の4名としているので、最初からインデックス番号は1〜4となる。PresetTexturedメソッドに指定するテクスチャは表1になる。

　「グラフにテクスチャを設定する」という新しいシートを作成して、図2のデータとグラフをそのままコピーしておく。「テクスチャの適用」というボタンを配置しておく。

　これまでのように、コンボボックスを配置して「氏名」を選択し、またテクスチャも、コンボボックスに表示させて選択させると、リアルタイムに、指定した人物のグラフのテクスチャを変化させることができるが、これまでの処理と解説が重複するので、今回は、コンボボックスは使用していない。これまでのTipsを参考にすると簡単に実現できるので、読者の皆さんが試してほしい。

　今回はボタンクリックで任意の人物のグラフにテクスチャを適用させてみた。

　Module1内に、リスト3の「グラフにテクスチャを設定する」コードを記述する。

Sub グラフにテクスチャを設定する()
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(3).Format.Fill.PresetTextured msoTextureMediumWood
End Sub

　SeriesCollectionの引数に「3」を指定し、名前が「阪神」のグラフに、表1から「木目のテクスチャ」である「msoTextureMediumWood」を指定している。

　リスト3を「テクスチャの適用」ボタンに関連付け実行すると、図5のように氏名が「阪神」のグラフに、「木目のテクスチャ」が適用された。

図5　「阪神」のグラフに、「木目のテクスチャ」が適用された

グラフにパターンを指定するPatternedメソッド

　Excel VBAには、グラフに適用できる「MsoPatternType」というパターンが用意されている。これを使うとグラフにいろいろなパターンを適用できる。

　今回はできるだけグラフを大きくした方が見やすいため、データ件数を3件に絞り、新しいシートを追加して図6のようなグラフを作成しておく。

　これは、Tips「Excelグラフにタイトル、凡例、データラベルを表示する」でも解説した「凡例項目の“横”と“縦”を変えるには」のように、凡例を選択してマウスの右クリックで表示される［データの選択］から［行/列の入れ替え］を実行している。

　また、Excelメニューの［挿入］→［図形］と選択して「角丸四角形」を選択し、「パターンを適用」というボタンを配置している。

図6　生徒別の各科目の点数のデータをグラフ化している

　グラフにパターンを指定するPatternedメソッドの書式は下記の通りだ。

　Patternedメソッドに表2のMsoPatternTypeを指定する。

　Excelメニューの［開発］→［挿入］から、コンボボックスを配置して、マウスの右クリックで表示される［コントロ―ル］の書式設定で、［入力範囲］に各パターンを入力している「U1:U55」までを指定し、［リンクするセル］にはセル「S5」を指定しておく。

　これらを指定すると、Tips「Excelグラフで特定のデータを目立たせるテクニック」の「絶対参照と相対参照について」で解説した、「$」マークの入った「絶対参照」となる。

　次に、表2の値を「V1:V55」までのセルに入力しておく。全て設定した画面が図7になる。

図7　コンボボックスに表示されるパターンと値をセルに記述し、選択した項目のインデックスを表示するセルを用意する

　では、実際にマクロを記述してみよう。Module1にリスト4のコードを記述する。

Option Explicit
Sub グラフにパターンを適用する()
  Dim パターン As Integer
  パターン = Cells(Range("S5").Value, 22)
  With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(2).Format.Fill
.Patterned パターン
  End With
End Sub

　まず、3行目でInteger型変数「パターン」を宣言している。

　次に、4行目で「Cells(｛行番号｝,｛列番号｝)」の書式にのっとって、コンボボックスから選択されたインデックス値が表示される「S5」の値を｛行番号｝に指定し、｛列番号｝には「V列」である「22列」目を指定している。このCellsの値を変数「パターン」に格納する。ここで重要なのは、選択した「パターン」と値を一致させることだ。

　5行目で値の格納された変数「パターン」を、Patternedメソッドに指定する。

　コンボボックスを選択して、マウスの右クリックで表示されるメニューから「マクロの登録」を選択し、リスト4のマクロを関連付け実行すると、図8のように「夏目」のグラフにコンボボックスから選択されたパターンが適用される。これで、どのパターンが、どのような模様なのか一目瞭然だ。

図8　「夏目」のグラフに、コンボボックスより選択したパターンが適用された

グラフの書式をクリアするClearToMatchStyleメソッド

　最後に、「グラフの書式をクリアする」方法について解説しよう。図8に適用したパターンをクリアして、元の状態に戻す処理になる。図7に「書式のクリア」というボタンを追加している。

　ClearToMatchStyleメソッドで、グラフに適用していた書式をクリアして、標準書式に戻すことができる。

　先ほど追加したModule1内にリスト5のコードを記述する。

Sub グラフの書式をクリア()
  ActiveSheet.ChartObjects(1).Chart.ClearToMatchStyle
End Sub

　ここでは、ClearToMatchStyleメソッドで、表示されているグラフの書式を標準の書式に戻している。

　リスト5を「書式のクリア」ボタンに関連付け実行すると、図9のように「夏目」のグラフが元の標準のグラフに戻る。

図9　「夏目」のグラフが元の標準のグラフに戻った

次回は、折れ線グラフで特定のデータを目立たせるTips

　「グラフを指定した色に変更する」Tipsは、個別に凡例で確認しなくても、コンボボックスから選択した人物のグラフが赤で表示され、データの推移が一目瞭然で、大変に有益なTipsではないかと思う。ぜひ、読者の皆さんの職場で利用してみてほしい。

　社内でExcelを使ってプレゼンテーションを行う場合にも利用できると思う。次回も特定のデータを目立たせるTipsで、今度は折れ線グラフで使えるテクニックを紹介するので、お楽しみに。

著者プロフィール

薬師寺 国安（やくしじ くにやす）　／　薬師寺国安事務所

薬師寺国安事務所代表。Visual Basicプログラミングと、マイクロソフト系の技術をテーマとした、書籍や記事の執筆を行う。

1950年生まれ。事務系のサラリーマンだった40歳から趣味でプログラミングを始め、1996年より独学でActiveXに取り組む。

1997年に薬師寺聖とコラボレーション・ユニット「PROJECT KySS」を結成。

2003年よりフリーになり、PROJECT KySSの活動に本格的に参加。.NETやRIAに関する書籍や記事を多数執筆する傍ら、受託案件のプログラミングも手掛ける。

Windows Phoneアプリ開発を経て、現在はWindowsストアアプリを多数公開中。

Microsoft MVP for Development Platforms - Client App Dev （Oct 2003-Sep 2012）。

Microsoft MVP for Development Platforms - Windows Phone Development（Oct 2012-Sep 2013）。

Microsoft MVP for Development Platforms - Client Development（Oct 2013-Sep 2014）。

Microsoft MVP for Development Platforms-Windows Platform Development (Oct 2014-Sep 2015）。