Есть макрос а Экселе
Построение графика
----------------------------------------
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("A8:B29"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
------------------------------------------
Нужно переписать это VBS
Кое что получилось

Set CurrentChart2 = book.Charts.Add( )
CurrentChart2.Name = "График2"
CurrentChart2.SetSourceData( Sheet.Range("A8:B29") )

Это не получается
ActiveChart.ChartType = xlLineMarkers
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"

Это только
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("A8:B29"), PlotBy:= _
xlColumns
Вот так
CurrentChart2.SetSourceData( Sheet.Range("A8:B29") )


Помогите если можно

Заранее спасибо



Book и Sheet определены так
Set xls = CreateObject("Excel.Application")
On Error Resume Next
Err.Clear
Set book = xls.Workbooks.Add("\\192.168.0.126\reports\XLS\Биб_ПоДням.xls")
Set sheet = book.Worksheets(1)
Sheet.Activate