Много динамических диаграмм в одном файле

[hemmel]

Есть около 50 таблиц.
В каждой таблице фиксированное число строк. Количество столбцов меняется, оно растет.

Нужно построить к каждой таблице диаграмму.
Пытался сделать через динамический массив для каждого ряда. Но тогда получается очень большое количество именных формул, около 70 в моем случае.

Пример во вложении.

[Казанский]

А какого рода диаграммы? Построили бы хоть одну в примере. Можно макросом сделать.

[hemmel]

Тип диаграммы Линейная
а как сделать это на макросе?

[27102014]

Не силен в диаграммах, но вроде это график, а не линейная диаграмма, но не суть...

Запишите через макрорекодер вставку нужной Вам диаграммы, получится что-то вроде

Sub Макрос1()

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Range("B2:G14")
End Sub

Далее т.к. у Вас строки всегда одни и те же, сделать переменную величину G14 - вместо 14 поставить номер последнего столбца, здесь можно тоже по-разному сделать

А вообще выложили бы файл того, что хотите сделать - можно было бы посоветовать что-то конкретное или даже сделать

[hemmel]

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

Не силен в диаграммах, но вроде это график, а не линейная диаграмма, но не суть...

Запишите через макрорекодер вставку нужной Вам диаграммы, получится что-то вроде

Sub Макрос1()

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Range("B2:G14")
End Sub

Далее т.к. у Вас строки всегда одни и те же, сделать переменную величину G14 - вместо 14 поставить номер последнего столбца, здесь можно тоже по-разному сделать

А вообще выложили бы файл того, что хотите сделать - можно было бы посоветовать что-то конкретное или даже сделать

Количества строк в таблицах неизменны, а вот столбцы будут расти по мере заполнения таблицы. Поэтому нужно чтобы макрос или формула находила последний столбец данных для диаграммы.

[27102014]

Я же Вам об этом и написал

Можно так попробовать

Sub Макрос1()
'номер последнего столбца
Last = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Range("B2:G"& Last)
End Sub

Все зависит от количества заполненных строк, нужно сделать цикл перебора всех таблиц, к которым нужно рисовать диаграммы

Также нужно предусмотреть добавление данных в таблицу - будут ли при этом удаляться уже имеющиеся диаграммы или будет происходить обновление данных?
Файл от Вас будет?

[IgorGO]

см.вложение

Sub AddCharts()
  Dim rg As Range, c As Long, a
  Set rg = Cells(1, 1)
  Do While Not IsEmpty(rg.End(xlDown))
    Set rg = rg.End(xlDown)
    With Me.Shapes.AddChart
      a = rg.Offset(-1, 0).Resize(1, 99).Value: Rows(rg.Row - 1).ClearContents
      c = rg.CurrentRegion.Columns.Count - 1: rg.Offset(-1, 0).Resize(1, 99).Value = a
      .Chart.SetSourceData Source:=rg.Offset(0, 1).Resize(12, c): .Chart.ChartType = xlLineStacked
      .Left = Columns(3).Left:  .Width = Columns(10).Left - Columns(3).Left
      .Top = rg.Offset(13, 0).Top: .Height = rg.Offset(19, 0).Top - rg.Offset(13, 0).Top
      Set rg = rg.End(xlDown)
    End With
  Loop
End Sub

[hemmel]

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

см.вложение

Sub AddCharts()
  Dim rg As Range, c As Long, a
  Set rg = Cells(1, 1)
  Do While Not IsEmpty(rg.End(xlDown))
    Set rg = rg.End(xlDown)
    With Me.Shapes.AddChart
      a = rg.Offset(-1, 0).Resize(1, 99).Value: Rows(rg.Row - 1).ClearContents
      c = rg.CurrentRegion.Columns.Count - 1: rg.Offset(-1, 0).Resize(1, 99).Value = a
      .Chart.SetSourceData Source:=rg.Offset(0, 1).Resize(12, c): .Chart.ChartType = xlLineStacked
      .Left = Columns(3).Left:  .Width = Columns(10).Left - Columns(3).Left
      .Top = rg.Offset(13, 0).Top: .Height = rg.Offset(19, 0).Top - rg.Offset(13, 0).Top
      Set rg = rg.End(xlDown)
    End With
  Loop
End Sub

Супер! Помоему это как раз то что мне нужно!
Вопрос, а как транспонировать диаграмму?
у меня данные в рядах, а графики строятся по столбцам.
Я транспонировал вручную через кнопку, но при повторной постстройке диаграмм они снова переворачиваются.

[IgorGO]

см.вложение

[hemmel]

IgorGO При нажатии на кнопку Make Chart диаграммы строятся поверх предыдущих диаграмм и старые не удаляются. Можно сделать что-то типо кнопки Обновить чтобы диаграммы обновлялись но не создавались новые?