Vba で棒グラフを作成する方法 (例付き)

VBA を使用して Excel で棒グラフを作成するには、次の基本構文を使用できます。

 SubCreateBarChart ()

    Dim MyChart As ChartObject
    
    ' get input range from user
    Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8)
    
    'create bar chart
    Set MyChart = Worksheets(" Sheet1 ").ChartObjects.Add(Left:=ActiveCell.Left, _
    Width:=400, Top:=ActiveCell.Top, Height:=300)
    MyChart.Chart.SetSourceDataSource:=Rng
    MyChart.Chart.ChartType = xlColumnClustered

End Sub

この特定のマクロは、ユーザーに入力範囲の入力を求め、入力範囲を使用して棒グラフを自動的に生成し、それをSheet1というシートに挿入し、グラフの左上隅が現在アクティブなセルに配置されます。

次の例は、このマクロを実際に使用する方法を示しています。

例: VBA で棒グラフを作成する方法

さまざまなバスケットボール選手が獲得したポイントに関する情報を含む次のデータセットが Excel にあるとします。

VBA を使用して、このデータセットを使用して棒グラフを生成するとします。

これを行うには、次のマクロを作成できます。

 SubCreateBarChart ()

    Dim MyChart As ChartObject
    
    ' get input range from user
    Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8)
    
    'create bar chart
    Set MyChart = Worksheets(" Sheet1 ").ChartObjects.Add(Left:=ActiveCell.Left, _
    Width:=400, Top:=ActiveCell.Top, Height:=300)
    MyChart.Chart.SetSourceDataSource:=Rng
    MyChart.Chart.ChartType = xlColumnClustered

End Sub

このマクロを実行するには、Excel の上部リボンにある[開発]タブをクリックし、 [マクロ]をクリックします。

次に、 「CreateBarChart」というラベルの付いたものをクリックし、 「Run」をクリックします。

「実行」をクリックすると、棒グラフの入力範囲の入力を求められます。

A1:B7と入力し、 OKを押します。

次の棒グラフが自動的に作成され、現在アクティブなセル (たまたまセルD1 )にグラフの左上隅が配置されて表示されます。

注: ChartObjects.Add()関数のWidth引数とHeight引数の値を変更して、棒グラフの幅と高さをそれぞれ調整できます。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA: 最後に使用された行を見つける方法
VBA: 範囲内の行数をカウントする方法
VBA: 使用されている列の数を数える方法