Как построить диаграмму по средствам 2-х массивов

[clever77]

Здравствуйте!
Помогите разобраться. Есть маленькая программка для построения диаграммы. Надо вместо диапазона Range поставить массив А ( пусть вместо D2:D6) и массив В ( пусть вместо E2:E6)
Длина массива если важно пара тысяч элементов.
Dim oChart As Chart
Set oChart = ActiveWorkbook.Charts.Add(, ActiveSheet)
oChart.ChartType = -4100
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("D2:D 6")
ActiveChart.SeriesCollection(1).XVa lues = Worksheets(1).Range("E2:E6")

Что нужно изменить в последних двух строчках?
Сколько не пытался не получается, хотя иногда даже диаграммы строит, но на последние 2 строки все равно ругается при подстановки массивов вместо указания ячеек.

Заранее благодарен

[clever77]

Ответа не дождался сам нашел
http://forum.sources.ru/index.php?showtopic=259869

[clever77]

Как построить диаграмму на новом листе исп 2 массива разобрался, но поместить диаграмму на определенный лист не получается....
Пытался использовать
Chart.Location(Where:=xlLocationAsO bject, Name:='Лист1')
не принимает
Как быть?
xlLocationAsObject - дословно там где данные
Если использовать range(a1:a5), тогда понятно на каком листе данные на том и строим, но у меня массив данных и к листу он не привязан, а по умолчанию строит на новом

[was3110]

в VBA можно все. напишите на ящик, разберемся...

[R Dmitry]

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

Как построить диаграмму на новом листе исп 2 массива разобрался, но поместить диаграмму на определенный лист не получается....
Пытался использовать
Chart.Location(Where:=xlLocationAsO bject, Name:='Лист1')
не принимает
Как быть?
xlLocationAsObject - дословно там где данные
Если использовать range(a1:a5), тогда понятно на каком листе данные на том и строим, но у меня массив данных и к листу он не привязан, а по умолчанию строит на новом

сначала активируйте а затем перемещайте

ActiveSheet.ChartObjects("Диаграмма 1").Activate
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист3"

[clever77]

Сообщение от R Dmitry

сначала активируйте а затем перемещайте

ActiveSheet.ChartObjects("Диаграмма 1").Activate
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист3"

Пока не получается... говорит не находит такой диаграммы
Но это еще не все Прграмма по умолчанию строит на новом листе диаграмму и размером на весь лист, а мне нужно примерно следующее


массив A.......Массив B.. Массив С
1 ......................3...........5
3.......................4.......... .6
4.......................1.......... .8 ................... Диграмма массива А............ Диаграмма масиива B ...........Диаграмма массива С

И это все на одном листе
Т.е надо опр лист размещения, размер диаграммы и ее положение на листе

Спасибо, надеюсь не оставите без внимания

[R Dmitry]

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

Пока не получается... говорит не находит такой диаграммы
Но это еще не все Прграмма по умолчанию строит на новом листе диаграмму и размером на весь лист, а мне нужно примерно следующее


массив A.......Массив B.. Массив С
1 ......................3...........5
3.......................4.......... .6
4.......................1.......... .8 ................... Диграмма массива А............ Диаграмма масиива B ...........Диаграмма массива С

И это все на одном листе
Т.е надо опр лист размещения, размер диаграммы и ее положение на листе

Спасибо, надеюсь не оставите без внимания

а в excel Вам что , запретили пример предоставить

[Hugo121]

Вывести на определённый лист можно так:

Sub tt()
ArrayForY = Array(1, 2, 3)
ArrayForX = Array("X", "Y", "Z")
 
Dim iChart As Chart, iSerie As Series
 
Set iChart = ThisWorkbook.Charts.Add
Set iSerie = iChart.SeriesCollection.NewSeries
 
iSerie.Name = "Название"
iSerie.Values = ArrayForY
iSerie.XValues = ArrayForX

iChart.Location Where:=xlLocationAsObject, Name:="Лист3"

End Sub

Как задать размер и положение - не нащупал.

[clever77]

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

Вывести на определённый лист можно так:

Sub tt()
ArrayForY = Array(1, 2, 3)
ArrayForX = Array("X", "Y", "Z")
 
Dim iChart As Chart, iSerie As Series
 
Set iChart = ThisWorkbook.Charts.Add
Set iSerie = iChart.SeriesCollection.NewSeries
 
iSerie.Name = "Название"
iSerie.Values = ArrayForY
iSerie.XValues = ArrayForX

iChart.Location Where:=xlLocationAsObject, Name:="Лист3"

End Sub

Как задать размер и положение - не нащупал.

Спасибо это работает!
iChart.Location Where:=xlLocationAsObject, Name:="Лист3"


Как задать размер и положение - не нащупал.[/QUOTE]

Должно быть что то типа такого

With Worksheets(1).ChartObjects.Add(100, 60, 250, 200)
или
ActiveSheet.ChartObjects.Add(20, 19.5, 192, 192).Select

Но при добалении какой либо из двух строк у меня получается что на лист выводится новая диаграмма, но без данных, просто пустая и как привязать к этой пустой диаграмме мои данные не знаю

[clever77]

Нашел пример где что то подобное рассматривается, но пока не разобрался
http://www.2programmer.ru/oficprog?start=44