Построение графика в Excel используя данные из Visual Basic - VB

Формулировка задачи:

Столкнулся со следующей проблемой: как изменить тип диаграммы в коде Visual Basic? Есть следующий код, он рабочий. Служит для передачи массива данных на лист Excel, и построения графика. Но дело в том что изначальное представление диаграммы - гистрограмма, а изменить ее у меня не выходит. Пробовал уже по разному обращаться к свойство ChartType но ничего не выходит, постоянно ругается что либо метод завершается не правильно (когда пытался сделать через активную диаграмму oChart.Activate) либо что просто класс не имеет такого свойства или метода (oChart.ChartType, oChart.SeriesCollection(1).ChartType) и т.д. ).

Private Sub Command5_Click()
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim oChart As Object
 
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
   
   'Создаем и заполняем массив
   Dim DataArray(0 To 37, 1 To 2) As Variant
   Dim i As Integer
   For i = 0 To 37
      DataArray(i, 1) = FuncX(i)
      DataArray(i, 2) = Func(i)
   Next
 
   'Подписываем первые ячейки
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1:B1").Value = Array("x", "y(x)")
 
   'Передаем массив начиная с ячейки A2
   oSheet.Range("A2").Resize(38, 2).Value = DataArray
 
   'Строим диаграмму
    Set oChart = oSheet.ChartObjects.Add(100, 0, 600, 400).Chart
    oChart.SetSourceData Source:=oSheet.Range("A2") '.Resize(38, 2)
    oChart.SeriesCollection(1).XValues = "=Лист1!$A$2:$A$39"
    oChart.SeriesCollection(1).Values = "=Лист1!$B$2:$B$39"
    
         'oChart.ChartType = xlLine
 
   'Закрываем книгу
   oBook.SaveAs "C:\Temp\1.xlsx"
   oExcel.Quit
End Sub

Решение задачи: «Построение графика в Excel используя данные из Visual Basic»

textual
                            Листинг программы 
                        
                            oChart.ChartType = 4 'xlLine