Excelグラフの基本的な作り方――わかりやすい効果的なプレゼン／会議資料作成のために：Excelマクロ／VBAで始める業務自動化プログラミング入門（8）（4/4 ページ）

» 2016年08月26日 05時00分公開

MarkerStyleプロパティでマーカーを表示

　マーカーを表示するには、MarkerStyleプロパティを使用する。書式は下記の通りだ。マーカーとは折れ線グラフ上に表示する円や四角の目印のことだと思っていい。

MarkerStyleプロパティの書式

Seriesオブジェクト.MarkerStyle=｛表3の値｝

　Seriesオブジェクトは、グラフの系列を表すオブジェクトだ。SeriesオブジェクトはSeriesCollectionコレクションのメンバーだ。SeriesCollectionコレクションとは、指定されたグラフまたはグラフ種類グループにある、全てのSeriesオブジェクトのコレクションを指す。

表3　MarkerStyleの値
メンバー	説明
xlMarkerStyleNone	なし
xlMarkerStyleAutomatic	自動
xlMarkerStyleCircle	円形
xlMarkerStyleDiamond	菱形
xlMarkerStyleX	X印付きの四角形
xlMarkerStyleStar	アスタリスク（*）付きの四角形
xlMarkerStyleSquare	四角形
xlMarkerStyleTriangle	三角形
xlMarkerStyleDot	短い棒
xlMarkerStyleDash	長い棒
xlMarkerStylePlus	プラス記号（+）付きの四角形
xlMarkerStylePicture	画像
参照「XlMarkerStyle 列挙型 (Microsoft.Office.Interop.Excel) - MSDN」

　マーカーを表示させるマクロはリスト7になる。

Sub 折れ線グラフにマーカーを表示する()
：
：
※ここまでリスト6と同じ
：
：
  Dim i As Long
  Dim mySeriesCollection As SeriesCollection
  Set mySeriesCollection = ActiveSheet.ChartObjects(1).Chart.SeriesCollection
  For i = 1 To mySeriesCollection.Count
    mySeriesCollection.Item(i).MarkerStyle = xlMarkerStyleCircle
  Next
End Sub

リスト7　折れ線グラフにマーカーを表示

　SeriesCollection型の変数「mySeriesCollection」を宣言し、Setを使って追加された折れ線グラフのコレクションを代入しておく（8～9行目）。Countプロパティで折れ線グラフの個数を取得し、その数だけ反復処理を行う（10～12行目）。反復処理内で、折れ線グラフのマーカーに、「xlMarkerStyleCircle」と指定して、円形のマーカーを表示している（11行目）。

　実行すると、図8のように表示される。

図8　折れ線グラフにマーカーを表示した

Explosionプロパティで円グラフの一部を分離する

　最後に、円グラフを表示して、その一部を切り離してみよう。円グラフの一部を分離するには、Explosionプロパティを使用する。書式は下記の通りだ。

Explosionプロパティの書式

Seriesオブジェクト.Explosion=｛切り離す距離｝

　｛切り離す距離｝は、半径に対する割合だ。「10」を指定すると半径に対する10％に当たる距離分、分離される。

　円グラフを作成して「英語」の科目だけ20％分離してみよう。マクロはリスト8になる。

Sub 円グラフを作成して英語の科目を分離する()
  Range("C3:D11").Select
  If ActiveSheet.ChartObjects.Count > 0 Then
    ActiveSheet.ChartObjects(1).Delete
  Else
    Dim graphTitle As String
    graphTitle = Range("B2").Value
    ActiveSheet.Shapes.AddChart
    ActiveSheet.ChartObjects(1).Chart.ChartType = xl3DPie
    ActiveSheet.ChartObjects(1).Activate
    ActiveChart.SeriesCollection(1).Points(5).Select
    Selection.Explosion = 20
  End If
End Sub

リスト8　円グラフを作成して「英語」の科目を分離

　円グラフなので、「1年」のデータだけ選択して表示させる（2行目）。ワークシート上に既にグラフが存在していれば削除する（3～4行目）。

　グラフの種類（ChartType）には「xl3Dpie」を指定して3Dの円グラフを表示している（10行目）。3D円グラフをアクティブにして（11行目）、3D円グラフのPointsコレクションの引数に、系列のインデックス番号、ここでは「英語」の「5」を指定している（12行目）。Explosionプロパティには「20」を指定して、半径に対して「英語」のエリアを20％分離している（13行目）。

　要素はPointオブジェクトで表され、Pointオブジェクトの集合体はPointsコレクションになる。よって「Point(5)」と指定すると、円グラフの系列の5番目、すなわち「英語」を指すことになる。ちなみに、「国語」なら「Points(1)」、「数学」なら「Points(2)」という具合になる。

　「円グラフの作成」ボタンに、リスト8のコードを関連付けて実行すると、図9のように表示される。