Вопрос : Произведите диаграммы Эксел путем возмещать серию

genchrts.jpg (91 KB) (тип архива детали) 

gencharts

Pls видит приложение.

Пытающся для того чтобы создать макрос автоматически произведет диаграммы и выровнять их вверх по (как приложение) например старт с скажите дезаксиальность G13, создающ диаграммы, выравнивая их вверх до тех пор пока она не достигнуть пустую клетку.
 (2 или 3 диаграммы поперек и после этого идя дороги вниз - это smogло достигнуть 50 диаграмм)

Ответ : Произведите диаграммы Эксел путем возмещать серию

Попытайтесь этот макрос

Sub arraychart ()
    Установите старшего = ряд («G13»)
    Для I = старший. Рядок к старшему. Конец (xlDown). Рядок
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    Источник ActiveChart.SetSourceData: =Sheets («Sheet1»). Ряд (старший. Смещение (I - старший. Рядок, 0), старший. Смещение (I - старший. Рядок, 3)), PlotBy: =xlRows
    ActiveChart.Location где: =xlLocationAsObject, имя: = " Sheet1 "
    ActiveChart.Parent.Top = Int ((I - старший. ) Рядка/2) * 200 + 300
    ActiveChart.Parent.Left = ((I - 1) Mod 2) * 300 + 100
    ActiveChart.Parent.Width = 300
    ActiveChart.Parent.Height = 200
    Затем iий
    Ряд («G13»). Отборно
Подводная лодка конца