グラフ作成

目的
定義済みの表から、グラフを作成します。

プログラム
シートにChae\rtObjectを追加します。このとき、位置とサイズを指定します。With により、以下のChartObjectの指定が省略できます（End Withまで）。With の最後の _ は行が継続することを指定します。
　SetSourceData で、表のデータ範囲を指定します。ChartType でグラフの型（ここでは円グラフ）を指定します。これだけでもグラフは書けます。以下は、グラフのタイトルを指定します。属性 HaTitle を True とし、タイトルの文字列(Text）とフォントのサイズを設定しています。

Sub makeChart()
With ActiveSheet.ChartObjects.Add _
      (200,5,280,150)
   .Name = "価格表"
   .Chart.SetSourceData Range("B2:F3")
   .Chart.ChartType = xlPie
  End With
  With ActiveSheet.ChartObjects(1).Chart
   .HasTitle = True
   .ChartTitle.Text = "価格"
   .ChartTitle.Font.Size = 12
  End With
   
End Sub