散布図を5種類作成する : Excel

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


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

Excel実行画面

・ 通常の散布図 E1:F13がグラフデータです。
散布図作成ソフト

・ 平滑線付き散布図 、平滑線付き散布図(データ マーカーなし)
平滑線付き散布図 ・平滑線付き散布図(データ マーカーなし)作成ソフト

・ 折れ線付き散布図、折れ付き散布図(データ マーカーなし)
折れ線付き散布図・折れ付き散布図(データ マーカーなし)作成ソフト


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("E1:F13")
    ypos = 220
    
    '作成領域
    Set tCh = Worksheets("sheet1").ChartObjects.Add(20, ypos, 400, 200)
    '散布図
    tCh.Chart.ChartType = xlXYScatter
    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 = xlXYScatterSmooth
    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 = xlXYScatterSmoothNoMarkers
    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 = xlXYScatterLines
    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 = xlXYScatterLinesNoMarkers
    tCh.Chart.SetSourceData Source:=trange, PlotBy:=xlColumns
    tCh.Chart.HasTitle = True
    tCh.Chart.ChartTitle.Characters.Text = "売上推移  折れ付き散布図 (データ マーカーなし)"

End Sub



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

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


Copyright (c) Excel-Excel ! All rights reserved