Есть ли хоть один толковый ресурс или книга, объясняющий, как создать любую диаграмму Excel

Public Sub Chart5()
 
    SK = "Y = f(X)"
    OsbX = "b49:b54": PodpisbX = "X,%"
    OsbY = "c49:c54": PodpisbY = "Y, МВт"
    Application.DisplayAlerts = False ' Это свойство позволяет отключить показ различных предупреждений
   
    'Set oChart = ActiveSheet.ChartObjects.Add(900, 665, 301.5, 155.25).Select
    Set oChart = ActiveWorkbook.Charts.Add(, ActiveSheet) ' Создание диаграммы
    oChart.ChartType = xlXYScatterSmooth ' Тип диаграммы
    oChart.Name = SK ' Имя диаграммы
    oChart.SizeWithWindow = False 'Размер диаграммы будет подогнан таким образом, чтобы точно соответство-вать размеру листа
    oChart.Tab.ColorIndex = 35 ' Настройка внешнего вида вкладки диаграммы в книге
    oChart.HasLegend = False
    oChart.SetSourceData Source:=Sheets("Л5").Range(OsbX, OsbY), PlotBy:=xlColumns
    With Charts(SK)
      .HasTitle = True
      .ChartTitle.Text = SK
    End With
    With ActiveChart.Axes(xlValue) 'форматирование по оси Y
      .HasTitle = True
     With .AxisTitle
        .Caption = PodpisbY
        .Font.Name = "Arial Cyr"
        .Font.Size = 10
      End With
    End With
    With ActiveChart.Axes(xlCategory) 'форматирование по оси X
      .HasTitle = True
      With .AxisTitle
        .Caption = PodpisbX
        .Font.Name = "Arial Cyr"
        .Font.Size = 10
      End With
      .HasMajorGridlines = True
      .MajorGridlines.Border.Color = RGB(0, 0, 0)
      .MajorGridlines.Border.LineStyle = xlContinuous
    End With
    Application.Wait (Now + TimeValue("0:00:1")) ' позволяет приостановить выполнение операций на время
 
  'ActiveWorkbook.Charts("Диаграмма1").Tab.ColorIndex = 1
  'ActiveWorkbook.Charts("Диаграмма2").Tab.ColorIndex = 35
  Application.DisplayAlerts = True ' Это свойство позволяет отключить показ различных предупреждений
End Sub