ピラミッドグラフを7種類作成する： Excel

Excelのピラミッドグラフには下記の7種があります。

集合ピラミッド縦棒 : xlPyramidColClustered
積み上げピラミッド縦棒 : xlPyramidColStacked
100% 積み上げピラミッド縦棒 : xlPyramidColStacked100
3-D ピラミッド縦棒 : xlPyramidCol
集合ピラミッド横棒 : xlPyramidBarClustered
積み上げピラミッド横棒 : xlPyramidBarStacked
100% 積み上げピラミッド横棒 : xlPyramidBarStacked100

グラフの作成プログラムは、折れ線・棒グラフ・円グラフ・散布図・面グラフ・ドーナツ・レーダー・等高線・バブル・円柱・円錐と同じです。

Homeに戻る > Excel VBAでグラフのTipsへ

Excel実行画面

・グラフの元データと集合ピラミッド縦棒グラフです。
集合ピラミッド縦棒グラフ作成ソフト

・積み上げピラミッド縦棒、100% 積み上げピラミッド縦棒
積み上げピラミッド縦棒・100% 積み上げピラミッド縦棒作成ソフト

・3-D ピラミッド縦棒、集合ピラミッド横棒
3-D ピラミッド縦棒・集合ピラミッド横棒作成ソフト

・積み上げピラミッド横棒、100% 積み上げピラミッド横棒
積み上げピラミッド横棒・100% 積み上げピラミッド横棒作成ソフト

Excel VBA実行コード

Option Explicit

Private Sub CommandButton3_Click()
    Dim trange As Range
    Dim tCh As ChartObject
    Dim ypos As Long
    Dim stname As String

    stname = ActiveSheet.Name
    Set trange = Worksheets("Sheet1").Range("D1:F13")
    ypos = 220

    '作成領域
    Set tCh = Worksheets("sheet1").ChartObjects.Add(20, ypos, 400, 200)
    '集合ピラミッド縦棒
    tCh.Chart.SetSourceData Source:=trange, PlotBy:=xlColumns
    tCh.Chart.ChartType = xlPyramidColClustered
    tCh.Chart.HasTitle = True
    tCh.Chart.ChartTitle.Characters.Text = "売上推移　集合ピラミッド縦棒"

    '作成領域
    ypos = ypos + 220
    Set tCh = Worksheets("sheet1").ChartObjects.Add(20, ypos, 400, 200)
    '積み上げピラミッド縦棒
    tCh.Chart.SetSourceData Source:=trange, PlotBy:=xlColumns
    tCh.Chart.ChartType = xlPyramidColStacked
    tCh.Chart.HasTitle = True
    tCh.Chart.ChartTitle.Characters.Text = "売上推移　積み上げピラミッド縦棒"

    '作成領域
    ypos = ypos + 220
    Set tCh = Worksheets("sheet1").ChartObjects.Add(20, ypos, 400, 200)
    '100% 積み上げピラミッド縦棒
    tCh.Chart.SetSourceData Source:=trange, PlotBy:=xlColumns
    tCh.Chart.ChartType = xlPyramidColStacked100
    tCh.Chart.HasTitle = True
    tCh.Chart.ChartTitle.Characters.Text = "売上推移　 100% 積み上げピラミッド縦棒"

    '作成領域
    ypos = ypos + 220
    Set tCh = Worksheets("sheet1").ChartObjects.Add(20, ypos, 400, 200)
    '3-D ピラミッド縦棒
    tCh.Chart.SetSourceData Source:=trange, PlotBy:=xlColumns
    tCh.Chart.ChartType = xlPyramidCol
    tCh.Chart.HasTitle = True
    tCh.Chart.ChartTitle.Characters.Text = "売上推移　3-D ピラミッド縦棒"

    '作成領域
    ypos = ypos + 220
    Set tCh = Worksheets("sheet1").ChartObjects.Add(20, ypos, 400, 200)
    '集合ピラミッド横棒
    tCh.Chart.ChartType = xlPyramidBarClustered
    tCh.Chart.SetSourceData Source:=trange, PlotBy:=xlColumns
    tCh.Chart.HasTitle = True
    tCh.Chart.ChartTitle.Characters.Text = "売上推移　集合ピラミッド横棒"

    '作成領域
    ypos = ypos + 220
    Set tCh = Worksheets("sheet1").ChartObjects.Add(20, ypos, 400, 200)
    '積み上げピラミッド横棒
    tCh.Chart.ChartType = xlPyramidBarStacked
    tCh.Chart.SetSourceData Source:=trange, PlotBy:=xlColumns
    tCh.Chart.HasTitle = True
    tCh.Chart.ChartTitle.Characters.Text = "売上推移　積み上げピラミッド横棒"

    '作成領域
    ypos = ypos + 220
    Set tCh = Worksheets("sheet1").ChartObjects.Add(20, ypos, 400, 200)
    '100% 積み上げピラミッド横棒
    tCh.Chart.ChartType = xlPyramidBarStacked100
    tCh.Chart.SetSourceData Source:=trange, PlotBy:=xlColumns
    tCh.Chart.HasTitle = True
    tCh.Chart.ChartTitle.Characters.Text = "売上推移　100% 積み上げピラミッド横棒"

End Sub

Homeに戻る > Excel VBAでグラフのTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

ピラミッドグラフを7種類作成する ： Excel

Excel実行画面

Excel VBA実行コード

ピラミッドグラフを7種類作成する： Excel