円錐グラフを7種類作成する : Excel

Excelの円錐グラフには下記の7種があります。
  • 集合円錐縦棒 : xlConeColClustered
  • 積み上げ円錐縦棒 : xlConeColStacked
  • 100% 積み上げ円錐縦棒 : xlConeColStacked100
  • 3-D 円錐縦棒 : xlConeCol
  • 集合円錐横棒 : xlConeBarClustered
  • 積み上げ円錐横棒 : xlConeBarStacked
  • 100% 積み上げ円錐横棒 : xlConeBarStacked100
グラフの作成プログラムは、折れ線・棒グラフ・円グラフ・散布図・面グラフ・ドーナツ・レーダー・等高線・バブル・円柱と同じです。


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 = xlConeColClustered
    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 = xlConeColStacked
    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 = xlConeColStacked100
    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 = xlConeCol
    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 = xlConeBarClustered
    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 = xlConeBarStacked
    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 = xlConeBarStacked100
    tCh.Chart.SetSourceData Source:=trange, PlotBy:=xlColumns
    tCh.Chart.HasTitle = True
    tCh.Chart.ChartTitle.Characters.Text = "売上推移 100% 積み上げ円錐横棒"

End Sub


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

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


Copyright (c) Excel-Excel ! All rights reserved