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

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

 SubCreatePieChart ()

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

End Sub

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

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

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

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

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

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

 SubCreatePieChart ()

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

End Sub

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

次に、 「CreatePieChart」というラベルをクリックし、 「Run」をクリックします。

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

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

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

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

追加リソース

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

VBA で棒グラフを作成する方法
VBAで値を四捨五入する方法
VBAで値を四捨五入する方法