ＶＢＡ応用、グラフ操作（縦棒）

（項目１）
　・エクセルでは、色々なグラフを作成する事が可能です。
　・本ページでは、グラフ操作（縦棒）を説明します。
　・以下、Ｅｘｃｅｌ２０１６で説明して行きます。

（項目２）
　・代表的なグラフ操作（縦棒）は、以下の通りです。
　　グラフ操作（縦棒）を挿入　：　ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
　　　　　　　　　　　　　　　　　ActiveSheet.Shapes.AddChart2(297, xlColumnStacked).Select
　　　　　　　　　　　　　　　　　ActiveSheet.Shapes.AddChart2(297, xlColumnStacked100).Select
　　　　　　　　　　　　　　　　　ActiveSheet.Shapes.AddChart2(286, xl3DColumnClustered).Select
　　　　　　　　　　　　　　　　　ActiveSheet.Shapes.AddChart2(286, xl3DColumnStacked).Select
　　　　　　　　　　　　　　　　　ActiveSheet.Shapes.AddChart2(286, xl3DColumnStacked100).Select
　　　　　　　　　　　　　　　　　ActiveSheet.Shapes.AddChart2(286, xl3DColumn).Select

（項目３）
　・ＶＢＡコードは、以下の記述となります。

　　Sub test()

　　　　Range("B4:H7").Select
　　　　ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
　　　　ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$H$7")

　　　　Range("B4:H7").Select
　　　　ActiveSheet.Shapes.AddChart2(297, xlColumnStacked).Select
　　　　ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$H$7")

　　　　Range("B4:H7").Select
　　　　ActiveSheet.Shapes.AddChart2(297, xlColumnStacked100).Select
　　　　ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$H$7")

　　　　Range("B4:H7").Select
　　　　ActiveSheet.Shapes.AddChart2(286, xl3DColumnClustered).Select
　　　　ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$H$7")

　　　　Range("B4:H7").Select
　　　　ActiveSheet.Shapes.AddChart2(286, xl3DColumnStacked).Select
　　　　ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$H$7")

　　　　Range("B4:H7").Select
　　　　ActiveSheet.Shapes.AddChart2(286, xl3DColumnStacked100).Select
　　　　ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$H$7")

　　　　Range("B4:H7").Select
　　　　ActiveSheet.Shapes.AddChart2(286, xl3DColumn).Select
　　　　ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$H$7")

　　End Sub

（項目４）
　・以上で、ＶＢＡ応用、グラフ操作（縦棒）は終了です。