人口ピラミッドのグラフをマクロで作成

最終更新日：2013-05-14

人口ピラミッドのグラフをマクロで作成

人口ピラミッドのグラフ作成は、設定項目が多く、かなり面倒です。

マクロでサクッと作って、細かい部分を手動で設定できれば楽です。

この表から、以下のグラフを作成します。

手動で設定すると、かなり多くの手順が必要になります。

以下のマクロを実行すると、サクッと作られます。


  
    
      Sub チャート作成()

　　Dim ws As Worksheet '対象シート

　　Dim MyRange As Range 'グラフ範囲

　　Dim chartObj As ChartObject 'Chartオブジェクトのコンテナ

　　

　　Set ws = ActiveSheet

      　　Set MyRange = ws.Range("A1").CurrentRegion 'グラフ範囲

　　

　　'Chartを追加、グラフ範囲の右隣に、グラフ範囲の3倍の大きさで作成

　　Set chartObj = ws.ChartObjects.Add(MyRange.Width + MyRange.Left, MyRange.Top, MyRange.Width * 3, MyRange.Height * 1)

　　

　　'追加されたChartオブジェクトに対する処理

　　With chartObj.Chart

　　　　'元データ範囲の設定

　　　　.SetSourceData MyRange

　　　　'横棒グラフ

　　　　.ChartType = xlBarClustered

　　　　'系列に対する処理

　　　　With .SeriesCollection(1)

      　　　　　　.Interior.Color = vbBlue 'グラフの色

　　　　End With

　　　　With .SeriesCollection(2)

　　　　　　.AxisGroup = 2 '第2軸

      　　　　　　.Interior.Color = vbRed 'グラフの色

　　　　End With

　　　　'主軸の書式設定

　　　　With .Axes(xlValue)

　　　　　　.TickLabels.NumberFormatLocal = "#,###;" '表示形式

      　　　　　　.MinimumScale = -600 '最小値

      　　　　　　.MaximumScale = 500 '最大値

      　　　　　　.MajorUnit = 100 '目盛間隔

　　　　　　.ReversePlotOrder = True '反転する

　　　　End With

　　　　'主軸の幅

　　　　With .ChartGroups(1)

      　　　　　　.Overlap = 90

      　　　　　　.GapWidth = 10

　　　　End With

　　　　'第2軸の書式設定

　　　　With .Axes(xlValue, xlSecondary)

　　　　　　.TickLabels.NumberFormatLocal = "#,###;" '表示形式

      　　　　　　.MinimumScale = -600 '最小値

      　　　　　　.MaximumScale = 500 '最大値

      　　　　　　.MajorUnit = 100 '目盛間隔

　　　　　　.ReversePlotOrder = False '反転しない

　　　　End With

　　　　'第2軸の幅

　　　　With .ChartGroups(2)

      　　　　　　.Overlap = 90

      　　　　　　.GapWidth = 10

　　　　End With

　　　　'縦軸の書式設定

　　　　.Axes(xlCategory).TickLabels.Offset = 0

　　　　.Axes(xlCategory).MajorTickMark = xlNone

　　　　'凡例

　　　　With .Legend

　　　　　　.Left = 0

      　　　　　　.Width = 75

      　　　　　　.Height = 25

　　　　　　.Left = (chartObj.Chart.ChartArea.Width - .Width) / 2

　　　　　　.Top = chartObj.Chart.ChartArea.Height - .Height

　　　　End With

　　　　'プロットエリア

　　　　With .PlotArea

　　　　　　.Left = 0 '左には自動で最小の余白が付く

　　　　　　.Width = chartObj.Width '左右に自動で最小の余白が付く

　　　　End With

　　End With

End Sub