[Ildar-tsr]

Сообщение от Zhigalov

Код:

Sub Макрос2()
'
' Макрос2 Макрос
'

'
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    Range("B3:C25").Select
End Sub

Помогите перевести на язык Delphi!

Код:

var e: OleVariant;
begin
  e:= CreateOleObject('Excel.Application');
  e.Workbooks.Open('{путь и имя книги}.xls');
  
  e.ActiveSheet.Shapes.AddChart.Select;
  e.ActiveChart.ChartType:= 4;
  e.Range[e.Cells[3,2],e.Cells[25,3]].Select;

  e.Visible:= true;
end;