Помогите кто может!!!
Готовлю данные средствами PB потом кидаю их в Excel и там же хочу выстроить график из этих данных.
Этот кусок работает!
E= Create OleObject
iResult=E.ConnectToNewObject("Excel.Application")
E.Workbooks.Open("d:\my_prog\pb.xls")
E.visible = true
E.ActiveWorkbook.Sheets.Item[1].Select

А вот здесь немогу толку дать!!! Как это перевернуть, чтобы работало?
(Это макрос из Excel)
Range("B2:B8").Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("B2:B8"), PlotBy:= _ xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "График1"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "aaa"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "bbb"
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
ActiveChart.HasDataTable = False

Или есть другое решение ???
Уже спасибо!