円グラフを6種類作成する： Excel

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

円： xlPie
3-D 円： xl3DPie
補助円グラフ付き円： xlPieOfPie
分割円： xlPieExploded
分割 3-D 円： xl3DPieExploded
補助縦棒グラフ付き円： xlBarOfPie

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

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

Excel実行画面

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

・ 3-D円、補助円グラフ付き円
3-D円・補助円グラフ付き円グラフ作成ソフト

・分割円、分割 3-D円、補助縦棒グラフ付き円
分割円・分割 3-D円・補助縦棒グラフ付き円グラフ作成ソフト

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 = xlPie
    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)
    '3-D 円
    tCh.Chart.ChartType = xl3DPie
    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)
    '補助円グラフ付き円
    tCh.Chart.ChartType = xlPieOfPie
    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)
    '3-D 分割円
    tCh.Chart.ChartType = xlPieExploded
    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)
    '分割 3-D 円
    tCh.Chart.ChartType = xl3DPieExploded
    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)
    '補助縦棒グラフ付き円
    tCh.Chart.ChartType = xlBarOfPie
    tCh.Chart.SetSourceData Source:=trange, PlotBy:=xlColumns
    tCh.Chart.HasTitle = True
    tCh.Chart.ChartTitle.Characters.Text = "売上推移　補助縦棒グラフ付き円"

End Sub

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

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

円グラフを6種類作成する ： Excel

Excel実行画面

Excel VBA実行コード

円グラフを6種類作成する： Excel