ExcelのVBA・マクロで一覧表からグラフを作成する方法まとめ

一覧表から縦棒グラフを作成する方法

ここでは、ExcelのVBA・マクロで一覧表から縦棒グラフを作成する方法を紹介します。

ExcelのVBA・マクロで一覧表から縦棒グラフを作成するには、AddChart2を使います。

<サンプル>
Sub test44()
‘表の書式設定
Range(“A1:C1”).Interior.Color = rgbYellow
Range(“A1:C1”).Font.Color = rgbRed
Range(“A1:C1”).HorizontalAlignment = xlCenter
Range(“A1:C7”).Borders.Weight = xlThin
Range(“A1:C7”).Font.Name = “Meiryo UI”
Range(“A1:C7”).Font.Size = 12

‘表のデータ
Range(“A1”).Value = “グループ”
Range(“B1”).Value = “名前”
Range(“C1”).Value = “点数”
Range(“A2”).Value = “A”
Range(“A3”).Value = “B”
Range(“A4”).Value = “C”
Range(“A5”).Value = “A”
Range(“A6”).Value = “B”
Range(“A7”).Value = “C”
Range(“B2”).Value = “高橋”
Range(“B3”).Value = “鈴木”
Range(“B4”).Value = “田中”
Range(“B5”).Value = “野村”
Range(“B6”).Value = “野村”
Range(“B7”).Value = “谷重”
Range(“C2”).Value = 100
Range(“C3”).Value = 80
Range(“C4”).Value = 60
Range(“C5”).Value = 50
Range(“C6”).Value = 30
Range(“C7”).Value = 10

‘表を変換
With ActiveSheet.Shapes.AddChart2( _
Style:=-1, Left:=250, Top:=30, Width:=300, Height:=250 _
, XlChartType:=xlColumnClustered)
.Chart.SetSourceData Source:=Range(“A1:C7”)
.Name = “点数”

End With

End Sub

Style:=-1」は既定のグラフを使用する際はー1を指定します。
Left:=250, Top:=30, Width:=300, Height:=250」でサイズを指定しています。
XlChartType:=xlColumnClustered」でチャートの種類を指定しています。
.Chart.SetSourceData Source:=Range(“A1:C7”)」でグラフの元となる一覧表を指定します。
Name = “点数”」でグラフタイトルを指定しています。

一覧表から折れ線グラフを作成する方法

ここでは、ExcelのVBA・マクロで一覧表から折れ線グラフを作成する方法を紹介します。

ExcelのVBA・マクロで一覧表から折れ線グラフを作成するには、AddChart2を使います。

<サンプル>
Sub test45()
‘表の書式設定
Range(“A1:C1”).Interior.Color = rgbYellow
Range(“A1:C1”).Font.Color = rgbRed
Range(“A1:C1”).HorizontalAlignment = xlCenter
Range(“A1:C7”).Borders.Weight = xlThin
Range(“A1:C7”).Font.Name = “Meiryo UI”
Range(“A1:C7”).Font.Size = 12

‘表のデータ
Range(“A1”).Value = “グループ”
Range(“B1”).Value = “名前”
Range(“C1”).Value = “点数”
Range(“A2”).Value = “A”
Range(“A3”).Value = “B”
Range(“A4”).Value = “C”
Range(“A5”).Value = “A”
Range(“A6”).Value = “B”
Range(“A7”).Value = “C”
Range(“B2”).Value = “高橋”
Range(“B3”).Value = “鈴木”
Range(“B4”).Value = “田中”
Range(“B5”).Value = “野村”
Range(“B6”).Value = “野村”
Range(“B7”).Value = “谷重”
Range(“C2”).Value = 100
Range(“C3”).Value = 80
Range(“C4”).Value = 60
Range(“C5”).Value = 50
Range(“C6”).Value = 30
Range(“C7”).Value = 10

‘表を変換
With ActiveSheet.Shapes.AddChart2( _
Style:=-1, Left:=250, Top:=30, Width:=300, Height:=250 _
, XlChartType:=xlLine)
.Chart.SetSourceData Source:=Range(“A1:C7”)
.Name = “点数”

End With

End Sub

Style:=-1」は既定のグラフを使用する際はー1を指定します。
Left:=250, Top:=30, Width:=300, Height:=250」でサイズを指定しています。
XlChartType:=xlLine」で折れ線チャートを指定しています。
.Chart.SetSourceData Source:=Range(“A1:C7”)」でグラフの元となる一覧表を指定します。
Name = “点数”」でグラフタイトルを指定しています。

一覧表から横棒グラフを作成する方法

ここでは、ExcelのVBA・マクロで一覧表から横棒グラフを作成する方法を紹介します。

ExcelのVBA・マクロで一覧表から横棒グラフを作成するには、AddChart2を使います。

<サンプル>
Sub test46()
‘表の書式設定
Range(“A1:C1”).Interior.Color = rgbYellow
Range(“A1:C1”).Font.Color = rgbRed
Range(“A1:C1”).HorizontalAlignment = xlCenter
Range(“A1:C7”).Borders.Weight = xlThin
Range(“A1:C7”).Font.Name = “Meiryo UI”
Range(“A1:C7”).Font.Size = 12

‘表のデータ
Range(“A1”).Value = “グループ”
Range(“B1”).Value = “名前”
Range(“C1”).Value = “点数”
Range(“A2”).Value = “A”
Range(“A3”).Value = “B”
Range(“A4”).Value = “C”
Range(“A5”).Value = “A”
Range(“A6”).Value = “B”
Range(“A7”).Value = “C”
Range(“B2”).Value = “高橋”
Range(“B3”).Value = “鈴木”
Range(“B4”).Value = “田中”
Range(“B5”).Value = “野村”
Range(“B6”).Value = “野村”
Range(“B7”).Value = “谷重”
Range(“C2”).Value = 100
Range(“C3”).Value = 80
Range(“C4”).Value = 60
Range(“C5”).Value = 50
Range(“C6”).Value = 30
Range(“C7”).Value = 10

‘表を変換
With ActiveSheet.Shapes.AddChart2( _
Style:=-1, Left:=250, Top:=30, Width:=300, Height:=250 _
, XlChartType:=xlBarClustered)
.Chart.SetSourceData Source:=Range(“A1:C7”)
.Name = “点数”

End With

End Sub

Style:=-1」は既定のグラフを使用する際はー1を指定します。
Left:=250, Top:=30, Width:=300, Height:=250」でサイズを指定しています。
XlChartType:=xlBarClustered」で横棒を指定しています。
.Chart.SetSourceData Source:=Range(“A1:C7”)」でグラフの元となる一覧表を指定します。
Name = “点数”」でグラフタイトルを指定しています。

一覧表からマーカー付き折れ線グラフを作成する方法

ここでは、ExcelのVBA・マクロで一覧表からマーカー付き折れ線グラフを作成する方法を紹介します。

ExcelのVBA・マクロで一覧表からマーカー付き折れ線グラフを作成するには、AddChart2を使います。

<サンプル>
Sub test47()
‘表の書式設定
Range(“A1:C1”).Interior.Color = rgbYellow
Range(“A1:C1”).Font.Color = rgbRed
Range(“A1:C1”).HorizontalAlignment = xlCenter
Range(“A1:C7”).Borders.Weight = xlThin
Range(“A1:C7”).Font.Name = “Meiryo UI”
Range(“A1:C7”).Font.Size = 12

‘表のデータ
Range(“A1”).Value = “グループ”
Range(“B1”).Value = “名前”
Range(“C1”).Value = “点数”
Range(“A2”).Value = “A”
Range(“A3”).Value = “B”
Range(“A4”).Value = “C”
Range(“A5”).Value = “A”
Range(“A6”).Value = “B”
Range(“A7”).Value = “C”
Range(“B2”).Value = “高橋”
Range(“B3”).Value = “鈴木”
Range(“B4”).Value = “田中”
Range(“B5”).Value = “野村”
Range(“B6”).Value = “野村”
Range(“B7”).Value = “谷重”
Range(“C2”).Value = 100
Range(“C3”).Value = 80
Range(“C4”).Value = 60
Range(“C5”).Value = 50
Range(“C6”).Value = 30
Range(“C7”).Value = 10

‘表を変換
With ActiveSheet.Shapes.AddChart2( _
Style:=-1, Left:=250, Top:=30, Width:=300, Height:=250 _
, XlChartType:=xlLineMarkers)
.Chart.SetSourceData Source:=Range(“A1:C7”)
.Name = “点数”

End With

End Sub

Style:=-1」は既定のグラフを使用する際はー1を指定します。
Left:=250, Top:=30, Width:=300, Height:=250」でサイズを指定しています。
XlChartType:=xlLineMarkers」でマーカー付き折れ線チャートを指定しています。
.Chart.SetSourceData Source:=Range(“A1:C7”)」でグラフの元となる一覧表を指定します。
Name = “点数”」でグラフタイトルを指定しています。

一覧表から円グラフを作成する方法

ここでは、ExcelのVBA・マクロで一覧表から円グラフを作成する方法を紹介します。

ExcelのVBA・マクロで一覧表から円グラフを作成するには、AddChart2を使います。

<サンプル>
Sub test50()
‘表の書式設定
Range(“A1:C1”).Interior.Color = rgbYellow
Range(“A1:C1”).Font.Color = rgbRed
Range(“A1:C1”).HorizontalAlignment = xlCenter
Range(“A1:C7”).Borders.Weight = xlThin
Range(“A1:C7”).Font.Name = “Meiryo UI”
Range(“A1:C7”).Font.Size = 12

‘表のデータ
Range(“A1”).Value = “グループ”
Range(“B1”).Value = “名前”
Range(“C1”).Value = “点数”
Range(“A2”).Value = “A”
Range(“A3”).Value = “B”
Range(“A4”).Value = “C”
Range(“A5”).Value = “A”
Range(“A6”).Value = “B”
Range(“A7”).Value = “C”
Range(“B2”).Value = “高橋”
Range(“B3”).Value = “鈴木”
Range(“B4”).Value = “田中”
Range(“B5”).Value = “野村”
Range(“B6”).Value = “野村”
Range(“B7”).Value = “谷重”
Range(“C2”).Value = 100
Range(“C3”).Value = 80
Range(“C4”).Value = 60
Range(“C5”).Value = 50
Range(“C6”).Value = 30
Range(“C7”).Value = 10

‘表を変換
With ActiveSheet.Shapes.AddChart2( _
Style:=-1, Left:=250, Top:=30, Width:=300, Height:=250 _
, XlChartType:=xlPie)
.Chart.SetSourceData Source:=Range(“A1:C7”)
.Name = “点数”
End With

End Sub

Style:=-1」は既定のグラフを使用する際はー1を指定します。
Left:=250, Top:=30, Width:=300, Height:=250」でサイズを指定しています。
XlChartType:=xlPie」で円を指定しています。
.Chart.SetSourceData Source:=Range(“A1:C7”)」でグラフの元となる一覧表を指定します。
Name = “点数”」でグラフタイトルを指定しています。

一覧表から散布図グラフを作成する方法

ここでは、ExcelのVBA・マクロで一覧表から散布図グラフを作成する方法を紹介します。

ExcelのVBA・マクロで一覧表から散布図グラフを作成するには、AddChart2を使います。

<サンプル>
Sub test49()
‘表の書式設定
Range(“A1:C1”).Interior.Color = rgbYellow
Range(“A1:C1”).Font.Color = rgbRed
Range(“A1:C1”).HorizontalAlignment = xlCenter
Range(“A1:C7”).Borders.Weight = xlThin
Range(“A1:C7”).Font.Name = “Meiryo UI”
Range(“A1:C7”).Font.Size = 12

‘表のデータ
Range(“A1”).Value = “グループ”
Range(“B1”).Value = “名前”
Range(“C1”).Value = “点数”
Range(“A2”).Value = “A”
Range(“A3”).Value = “B”
Range(“A4”).Value = “C”
Range(“A5”).Value = “A”
Range(“A6”).Value = “B”
Range(“A7”).Value = “C”
Range(“B2”).Value = “高橋”
Range(“B3”).Value = “鈴木”
Range(“B4”).Value = “田中”
Range(“B5”).Value = “野村”
Range(“B6”).Value = “野村”
Range(“B7”).Value = “谷重”
Range(“C2”).Value = 100
Range(“C3”).Value = 80
Range(“C4”).Value = 60
Range(“C5”).Value = 50
Range(“C6”).Value = 30
Range(“C7”).Value = 10

‘表を変換
With ActiveSheet.Shapes.AddChart2( _
Style:=-1, Left:=250, Top:=30, Width:=300, Height:=250 _
, XlChartType:=xlXYScatter)
.Chart.SetSourceData Source:=Range(“A1:C7”)
.Name = “点数”

End With

End Sub

Style:=-1」は既定のグラフを使用する際はー1を指定します。
Left:=250, Top:=30, Width:=300, Height:=250」でサイズを指定しています。
XlChartType:=xlXYScatter」で散布図チャートを指定しています。
.Chart.SetSourceData Source:=Range(“A1:C7”)」でグラフの元となる一覧表を指定します。
Name = “点数”」でグラフタイトルを指定しています。

一覧表から面グラフを作成する方法

ここでは、ExcelのVBA・マクロで一覧表から面グラフを作成する方法を紹介します。

ExcelのVBA・マクロで一覧表から面グラフを作成するには、AddChart2を使います。

<サンプル>
Sub test48()
‘表の書式設定
Range(“A1:C1”).Interior.Color = rgbYellow
Range(“A1:C1”).Font.Color = rgbRed
Range(“A1:C1”).HorizontalAlignment = xlCenter
Range(“A1:C7”).Borders.Weight = xlThin
Range(“A1:C7”).Font.Name = “Meiryo UI”
Range(“A1:C7”).Font.Size = 12

‘表のデータ
Range(“A1”).Value = “グループ”
Range(“B1”).Value = “名前”
Range(“C1”).Value = “点数”
Range(“A2”).Value = “A”
Range(“A3”).Value = “B”
Range(“A4”).Value = “C”
Range(“A5”).Value = “A”
Range(“A6”).Value = “B”
Range(“A7”).Value = “C”
Range(“B2”).Value = “高橋”
Range(“B3”).Value = “鈴木”
Range(“B4”).Value = “田中”
Range(“B5”).Value = “野村”
Range(“B6”).Value = “野村”
Range(“B7”).Value = “谷重”
Range(“C2”).Value = 100
Range(“C3”).Value = 80
Range(“C4”).Value = 60
Range(“C5”).Value = 50
Range(“C6”).Value = 30
Range(“C7”).Value = 10

‘表を変換
With ActiveSheet.Shapes.AddChart2( _
Style:=-1, Left:=250, Top:=30, Width:=300, Height:=250 _
, XlChartType:=xlArea)
.Chart.SetSourceData Source:=Range(“A1:C7”)
.Name = “点数”

End With

End Sub

Style:=-1」は既定のグラフを使用する際はー1を指定します。
Left:=250, Top:=30, Width:=300, Height:=250」でサイズを指定しています。
XlChartType:=xlArea」で面グラフを指定しています。
.Chart.SetSourceData Source:=Range(“A1:C7”)」でグラフの元となる一覧表を指定します。
Name = “点数”」でグラフタイトルを指定しています。