Sub insert_chart()
	Charts.Add
	'グラフを追加します
    	ActiveChart.ChartType = xlColumnClustered
	'グラフ形式を集合縦棒に指定します。(一覧下記）
    	ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:D8"), _
	'データの範囲をsheet1のA1:D8に指定します
	PlotBy:= xlRows
	'プロットに行を指定します
    	ActiveChart.Location Where:=xlLocationAsNewSheet
	'グラフを新しいシートに作成します
	'Where引数には他にxlLocationAsObject(オブジェクト)
	'xlLocationAutomatic(自動)があります
    	With ActiveChart
        .HasTitle = True
	'グラフや軸のタイトルを表示するようにします
        .ChartTitle.Text = "test"
	'グラフのタイトルをtestに指定します
        .Axes(xlCategory, xlPrimary).HasTitle = True
	'軸項目のタイトルを表示するようにします
	'軸項目にはxlCategoryの他にxlValue(値)
	'xlSeries(3-Dグラフのみ）があります
	xlPrimaryの他にはxlSecondaryがあります。
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "a"
	'軸のタイトルにaを指定します
        .Axes(xlValue, xlPrimary).HasTitle = True
	'値のタイトルを表示するようにします
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "b"
	値のタイトルにbを指定します'
    	End With
    	ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowValue, _
	'データ要素のラベルを表示させます。
	'type引数にはxlDataLabelsShowNone(データ ラベルなし)
	'xlDataLabelsShowPercent(全体のパーセンテージ。円とドーナツだけ指定可) 
	'xlDataLabelsShowLabel(データ要素の属する項目名/既定値) 
	'xlDataLabelsShowLabelAndPercent(全体の%と要素の項目円とドーナツだけ指定可)
	LegendKey:=True
	'汎用マーカを表示させます
    	ActiveChart.HasDataTable = True
	'データテーブルを表示させます
    	ActiveChart.DataTable.ShowLegendKey = True
	'データテーブルの項目名を表示させます
End Sub