Excel VBAで折れ線グラフを作成する：Chartオブジェクト

Excel VBAでChartObjectsとChartオブジェクトを使用し折れ線グラフを作成します。

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

Excel VBAでシート上にグラフを作成するには、最初に領域を作成し、その後データ範囲やグラフ種類を指定し作成します。


ChartObjects.Addメソッドの構文

ChartObjects.Add(Left, Top, Width, Height)

新規に埋め込みグラフを作成します。

  • Left：（必須）作成するワークシートの左ポイント位置を指定
  • Top：（必須）ワークシートの上ポイント位置を指定
  • Width：（必須）グラフの幅を指定
  • Height：（必須）グラフの高さを指定

Chart.ChartWizardメソッドの構文

グラフのプロパティを変更します。

ChartWizard (Source, Gallery, Format, PlotBy, CategoryLabels, SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle)

  • Source：グラフの元データの範囲を指定
  • Gallery：（省略可）グラフの種類を指定、xlLineで折れ線、lColumnClusteredで集合縦棒
  • Format：（オプション）組み込みのオートフォーマットのオプション番号
  • PlotBy：（省略可）各系列のデータを行と列のどちらで表示するかを指定
  • CategoryLabels：（省略可）元データの範囲内にある、項目軸ラベルを含む行数または列数を示す整数を指定
  • SeriesLabels：（省略可）元データの範囲内にある、系列ラベルを含む行数または列数を示す整数を指定
  • HasLegend：（省略可）凡例を表示する場合はTrueを指定
  • Title：（省略可）グラフのタイトルを指定
  • CategoryTitle：（省略可）項目軸のタイトルを指定
  • ValueTitle：（省略可）数値軸のタイトルを指定
  • ExtraTitle：（省略可）3Dグラフの系列軸タイトルか2Dグラフの2番目の値軸タイトルを指定



Excel VBAでChartObjectsとChartオブジェクトを使用し折れ線グラフを作成

Excelシート画面

「折れ線グラフの作成」ボタンをクリックすると、 左：150
上： 70
幅：400
高：250
の範囲でグラフ領域を作成し、
グラフデータ： Range("B7:B13")
折れ線グラフ： gallery:=xlLine
グラフタイトル： Title:="売上推移"
の条件で折れ線グラフを作成します。

売上推移グラフ

Excel VBA実行コード

Option Explicit

Private Sub CommandButton1_Click()
    Dim tCh As ChartObject

    '左：150
    '上： 70
    '幅：400
    '高：250
    'でグラフ領域を作成
    Set tCh = Worksheets("sheet1").ChartObjects.Add(150, 70, 400, 250)
    
    'Range("B7:B13")： グラフデータ
    'gallery:=xlLine： 折れ線グラフ
    'Title:="売上推移": グラフタイトル
    tCh.Chart.ChartWizard Source:=Worksheets("sheet1").Range("B7:B13"), gallery:=xlLine, Title:="売上推移"
End Sub


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

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


Copyright (c) Excel-Excel ! All rights reserved