Построение графика из массива

[TigR_[RUZ]]

Всем доброго времени суток! Сочиняю макрос на VBA и уже дошел до стадии завершения, но запнулся на стадии построения графика. Итак: имеется двумерный массив (при изменении начальных условий количество строк меняется, столбцов 3). В массиве данные имеют структуру: (Иванов И.И. ; 7 ; 81,5). на основании массива строю нестандартный график типа "График/гистограмма2".
Проблема: как задать исходные данные графика из массива?

Особенность: хочется, чтоб исходные данные график забирал напрямую из массива, допускается чтоб исходные данные забирал из ячеек на листе. Со сводной связываться нет желания совсем. Количество строк в массиве фактически не может превышать 12 (но думаю это не имеет значения). График лучше создавать на листе, а не отдельным листом.

Помогите с этой проблемой, готов рассмотреть любые идеи, может есть ссылки на такую тему...

[kuklp]

Думаете, умней других?
http://www.planetaexcel.ru/forum.php?thread_id=25735
Тут такие же люди. Помогут, но не хитровыеженным. Объясните хотя бы, чем те решения не устраивают.

[TigR_[RUZ]]

Да нет, я так совсем не думаю... Уважаемый kuklp, те решения основываются на сводной таблицы, просто я не уверен, что люди, которые будут пользоваться этой программой ведают о существовании сводных таблиц и что их нужно обновлять.
мне интересно только то, как связать исх.данные и массив. это пара строчек.
нашел вот следующее:
ActiveChart.SeriesCollection(1).XVa lues = "={" & Left(xs, Len(xs) - 1) & "}"
ActiveChart.SeriesCollection(1).Val ues = "={" & Left(ys, Len(ys) - 1) & "}"
на http://forum.codenet.ru/archive/index.php/t-17455.html
только не понятно откуда здесь ноги растут?

[TigR_[RUZ]]

kuklp, сложность еще состоит в том как из полученной таблицы (х * 3) сделать сводную?

[kuklp]

Да что Вы! Решения от Михаил и kim таблицами, от nilem и Hugo - макросами. Поэтому и спрашиваю, Что не так? Там http://www.planetaexcel.ru/forum.php?thread_id=25735 Вы написали: " Тему можно считать закрытой.". Так может в ТОЙ теме объясните, что Вас не устраивает? Я бы промолчал. Но когда люди тратят на Вас время, способности... Еще раз - что не так там?

[IgorGO]

не согласен по сути этой полемики:

в Библии - заданный на разных форумах один и тот же вопрос не встречается среди запрещающих заповедей и тем более среди 7 смертных грехов.

ни на одном из форумов не читал в правилах "если Вы задали вопрос здесь - Вы не имеете права задать его еще где-либо!" - а даже если бы такое и было - это звучит довольно наивно.

интернет демократичное пространство. TigR_[RUZ], Вы вольны задать свой вопрос на стольких форумах, на скольких считаете нужным, не смотря на то, что это не совпадает с мнением многоуважаемого kuklp.

[kuklp]

Игорь, при всем уважении... Спляши. Я бы и сам сплясал, но вот беда, не знаю как. Смотри мои посты, касаемые вопроса(хотя бы на этом форуме). Отсюда и вопрос. Я понимаю, ты не согласен со мной. Уважаю твое мнение. Но и мне позволь иметь свое. ТС пишет: "Сочиняю макрос на VBA и уже дошел до стадии завершения". Игорь(Hugo) и Николай(Nilem, а так же Михаил, kim) в свой выходной день просто счастливы были бы понаблюдать, как ТС на разных форумах: "Сочиняю макрос на VBA и уже дошел ...". Это при том, что вопрос никак не поставлен. Верней поставлен так: "Все же если у кого будут какие идеи - пишите, будет очень интересно рассмотреть их!" и так: "Тему можно считать закрытой". Ну, о своем отношении к подобному, я тебе писал ранее, в личке:-).
Еще раз, с уважением, Сергей.

[TigR_[RUZ]]

В общем вопрос решился методом построения сводной таблицы, хоть и не хотелось на листе лишнего размещать. Всем спасибо!!! Закроем эту тему.

[kuklp]

Ну, TigR_[RUZ], приймите мой респект за то, что отписались в теме. Никакой иронии. Просто не ожидал.
kuklp.

[TigR_[RUZ]]

А ларчик то просто открывался...

Может кому понадобится потом... x() - двумерный массив с kol_str_x числом строк и 3 столбцами.

[A1].Value = "ФИО": [B1].Value = "Кол-во": [C1].Value = "%"
[A2:B2:C2].Resize(UBound(x)).Value = x()

Worksheets("1").Activate
Range(Cells(1, 1), Cells(kol_str_x+1, 3)).Select '+1 учитывает заголовки в 1 строке (в массив х() не введены)
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"График|гистограмма 2"
ActiveChart.SetSourceData Source:=Sheets("1").Range(Cells(1, 1), Cells(kol_str_x + 1, 3)), _
PlotBy:=xlColumns