面グラフを6種類作成する : Excel(エクセル)

Excelの面グラフには下記の5種があります。 グラフの作成プログラムは、折れ線・棒グラフ・円グラフ・散布図と同じです。

Excel Tipsメニューに戻る

スポンサーリンク



Excel実行画面

・ 面グラフ D1:F13がグラフデータです。
面グラフ作成ソフト

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

・ 3-D面グラフ、3-D積み上げ面グラフ、3-D100%積み上げ面グラフ
3-D面グラフ、3-D積み上げ面グラフ、3-D100%積み上げ面グラフ作成ソフト

スポンサーリンク



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 = xlArea
    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 = xlAreaStacked
    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 = xlAreaStacked100
    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 = xl3DArea
    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 = xl3DAreaStacked
    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-D100% 積み上げ面
    tCh.Chart.ChartType = xl3DAreaStacked100
    tCh.Chart.SetSourceData Source:=trange, PlotBy:=xlColumns
    tCh.Chart.HasTitle = True
    tCh.Chart.ChartTitle.Characters.Text = "売上推移 3-D100% 積み上げ面"

End Sub

Excel Tipsメニューに戻る

スポンサーリンク






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


Copyright (c) Excel-Excel ! All rights reserved