Доступ к чарту в excel

[Serg97]

у меня простой Excel файл с одним Chart ом
Как получить доступ к чарту из Delphi 7?

WS := WB.Worksheets.Item[1] as _Worksheet;
MyChartObjects:=WS.ChartObjects(Emp typaram,lcid) as ChartObjects;
ShowMessage(IntToStr(MyChartObjects .Count));

MyChart:=MyChartObjects.Item(1) as _Chart;
Говорит що интефейс не поддерживается
Пересмотрел все примеры - в примерах Чарт создаётся на лету - а тут уже создан и нужен просто доступ



В AutoIt всё классно работает
$MyChart=$oExReportChart.ActiveShee t.Chartobjects(1).Chart;
$MyChart.Export(@WorkingDir&"\Image s\"&$sRepName&".png","PNG");

[doober]

У меня в VB такая ошибка означает,что СОМ объект не создан.
А сам документ программа видит?
Вначале необходимо создать СОМ объект EXCEL,а потом через него и к книге.Код проверил,объект копируеться
Ваш код другой будет,но принцип одинаковый

 xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
 xlBookf = CType(xlApp.Workbooks.Add, Microsoft.Office.Interop.Excel.Workbook)
xlBookf = xlApp.Workbooks.Open(mypat & "\file.xls")
 xlSh2 = CType(xlBookf.Worksheets(2), Microsoft.Office.Interop.Excel.Worksheet)

Dim xlCe As Microsoft.Office.Interop.Excel.ChartObjects

 xlCe = xlSh2.ChartObjects

  количество = xlCe.Count
  xlCe.Item(1).Copy()
  
 ширина = xlCe.Item(1).Width

 высота= xlCe.Item(1).Height

[Serg97]

да мне на Delphi надо а не VB. У меня в AutoIt - тоже VB/бейсик всё работает
Документ прога видит и сохраняет и всё такое
Тут вопрос либо правильно добраться до нужного объекта в Delphi
либо правильно оттайпкастить

[pesi]

вот изменяем длинну

VAR
msx, chart, sheet :VARIANT;
begin
  msx:=CreateOleObject('Excel.Application');
  MsX.WorkBooks.open(ExtractFilePath(ParamStr(0))+'1.xls');//открываем документ 1.xls лежащий  в папке с программой
  MsX.Visible:=true;
  Sheet:=MsX.Sheets.Item[3];  //ссылка на лист с именем Лист3
  chart:=sheet.ChartObjects(1);
 chart.Width:=100;
end;