[Zhigalov]

Код:

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

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

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