VBScript, который экспортирует диаграмму как изображение

Question

Я хочу экспортировать таблицу Excel в виде изображения. У меня настроены объекты приложения Excel, рабочей книги и рабочей таблицы (не уверен, что мне нужны все 3, но пока все работает нормально). И я создаю Диаграмму и хорошо ее заполняю. Единственный камень преткновения - это экспорт.

sub insert_array_into_excel_range(array)
    Set objExcel = CreateObject("Excel.Application")
      objExcel.Visible = True
    Set objWorkbook = objExcel.Workbooks.Open("M:\VBScripts\MYcharts.xlsx", 0, False)
    Set objws = objworkbook.sheets("sheet1")
    array_length = UBound(array)
    set paste_recordset_toRange = objExcel.Range(objws.Cells(1,2),objws.Cells(array_length,2))
    paste_recordset_toRange.Value = objExcel.Transpose(array)

    Set oChart = objExcel.Charts
    oChart.Add()
    Set oMychart = oChart(1)
    oMyChart.Activate
    oMyChart.ChartType = 4
    oMyChart.SetSourceData paste_recordset_toRange
    oMyChart.Export "M:\VBScripts\", "myGIF.gif", "GIF"


end sub

ошибка: 8003007B