棒グラフを7種類作成する： Excel

Excelの棒グラフには下記の７種があります。

集合縦棒　：　xlColumnClustered
積み上げ縦棒　：　xlColumnStacked
100% 積み上げ縦棒　：　xlColumnStacked100
3-D 縦棒　：　xl3DColumn
3-D 集合縦棒　：　xl3DColumnClustered
3-D 積み上げ縦棒　：　xl3DColumnStacked
3-D 100% 積み上げ縦棒　：　xl3DColumnStacked100

グラフの作成プログラムは、折れ線グラフと同じです。

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

Excel実行画面

・通常の棒グラフ　D1:F13がグラフデータです。
棒グラフ作成ソフト

・積み上げ縦棒、100% 積み上げ縦棒
積み上げ縦棒グラフ・100% 積み上げ縦棒グラフ作成ソフト

・ 3-D 縦棒、3-D 集合縦棒
3-D 縦棒グラフ・3-D 集合縦棒グラフ作成ソフト

・ 3-D 積み上げ縦棒、3-D 100% 積み上げ縦棒
3-D 積み上げ縦棒グラフ・3-D 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.ChartType = xlColumnClustered
    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 = xlColumnStacked
    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 = xlColumnStacked100
    tCh.Chart.SetSourceData Source:=trange, PlotBy:=xlColumns
    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.ChartType = xl3DColumn
    tCh.Chart.SetSourceData Source:=trange, PlotBy:=xlColumns
    tCh.Chart.HasTitle = True
    tCh.Chart.ChartTitle.Characters.Text = "売上推移　3-D 縦棒"

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

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

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

End Sub

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

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

棒グラフを7種類作成する ： Excel

Excel実行画面

Excel VBA実行コード

棒グラフを7種類作成する： Excel