等高線グラフを4種類作成する : Excel

Excelの等高線グラフには下記の4種があります。
  • 等高線 (トップ ビュー) : xlSurfaceTopView
  • 等高線(トップ ビュー - ワイヤフレーム) : xlSurfaceTopViewWireframe
  • 3-D等高線 : xlSurface
  • 3-D等高線(ワイヤフレーム) : xlSurfaceWireframe
グラフの作成プログラムは、折れ線・棒グラフ・円グラフ・散布図・面グラフ・ドーナツ・レーダーと同じですが、ChartTypeより、SetSourceDataを先に設定しないとエラーになります。


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

Excel実行画面

・ グラフの元データです。
等高線グラフデータ

・等高線 (トップ ビュー)、等高線(トップ ビュー - ワイヤフレーム)
等高線作成Excelソフト

・3-D等高線、3-D等高線(ワイヤフレーム)
3-D等高線作成Excelソフト

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 = xlSurfaceTopView
    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 = xlSurfaceTopViewWireframe
    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.SetSourceData Source:=trange, PlotBy:=xlColumns
    tCh.Chart.ChartType = xlSurface
    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.SetSourceData Source:=trange, PlotBy:=xlColumns
    tCh.Chart.ChartType = xlSurfaceWireframe
    tCh.Chart.HasTitle = True
    tCh.Chart.ChartTitle.Characters.Text = "売上推移 3-D等高線(ワイヤフレーム)"

End Sub


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

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


Copyright (c) Excel-Excel ! All rights reserved