Как скопировать график в excel на другой лист с привязкой

Спасибо за ваш отзыв!

• Добро пожаловать на Профессиональные приемы работы в Microsoft Excel.

• 
  Войти

• 
  Регистрация

У меня есть несколько листов с разными данными, но организованных одинаково (одинаковое количество столбцов и строк). Я создал несколько диаграмм в Sheet1, которые я хотел бы скопировать на Sheet2. в то время как обычное копирование / вставка копирует диаграммы на лист 2, диаграммы по-прежнему ссылаются на данные в листе 1, а не листе 2. Как я могу автоматически заставить их использовать данные Sheet2, а не Sheet после копирования?

В качестве работы я попытался скопировать лист 1 и назвал его листом 2 (который копирует все данные и диаграммы), а затем скопировал и вставил реальные данные листа 2 в этот новый лист. Это работает, но я надеялся, что есть более быстрый способ и, возможно, макрос, который копирует все диаграммы с листа1 на лист2 и автоматически обновляет ссылки.

У меня что-то вроде этого сработало. CopyCharts копирует все диаграммы с исходного листа на целевой лист. Затем SetChartRef устанавливает ссылку на диаграммы в целевом объекте так, как я хочу, чтобы они были. В этом примере я знаю, какой номер диаграммы какой. Думаю, его можно улучшить, чтобы вместо этого использовались названия диаграмм.

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

    Sub DeleteEmbeddedCharts(target As String)

    Dim wsItem As Worksheet
    Dim chtObj As ChartObject
        For Each chtObj In ThisWorkbook.Worksheets(target).ChartObjects
            chtObj.Delete
        Next
End Sub

Sub SetChartRef(target As String)

    Dim cht As ChartObject
    Dim i As Integer

    'i specifies which chart to set its data references
    i = 0
    For Each cht In ThisWorkbook.Worksheets(target).ChartObjects
        If i = 0 Then
            cht.Chart.SeriesCollection(1).Values = "=" & target & "!$I$2:$I$12"
            cht.Chart.SeriesCollection(2).Values = "=" & target & "!$J$2:$J$12"
        ElseIf i = 1 Then
             cht.Chart.SeriesCollection(1).Values = "=" & target & "!$I$14:$I$25"
             cht.Chart.SeriesCollection(2).Values = "=" & target & "!$J$14:$J$25"
        ElseIf i = 2 Then
            cht.Chart.SeriesCollection(1).Values = "=" & target & "!$I$26:$I$37"
            cht.Chart.SeriesCollection(2).Values = "=" & target & "!$J$26:$J$37"
        ElseIf i = 3 Then
            cht.Chart.SeriesCollection(1).Values = "=(" & target & "!$H$2," & target & "!$H$14," & target & "!$H$26," & target & "!$H$38)"
            cht.Chart.SeriesCollection(1).XValues = "=(" & target & "!$E$2," & target & "!$E$14," & target & "!$E$26," & target & "!$E$38)"
         ElseIf i = 4 Then
            cht.Chart.SeriesCollection(1).Values = "=(" & target & "!$H$2," & target & "!$H$14," & target & "!$H$26," & target & "!$H$38)"
            cht.Chart.SeriesCollection(1).XValues = "=(" & target & "!$E$2," & target & "!$E$14," & target & "!$E$26," & target & "!$E$38)"
        ElseIf i = 5 Then
            cht.Chart.SeriesCollection(1).Values = "=" & target & "!$I$38:$I$49"
            cht.Chart.SeriesCollection(2).Values = "=" & target & "!$J$38:$J$49"
        End If
        i = i + 1
    Next


End Sub

Sub CopyCharts(source As String, target As String)

    Dim chtObj As ChartObject
    'First delete all charts from target sheet
    DeleteEmbeddedCharts (target)

    'Some delay
    Application.Wait Now + TimeSerial(0, 0, 1)

    For Each chtObj In ThisWorkbook.Worksheets(source).ChartObjects
        With ThisWorkbook.Worksheets(target)
            .Activate
            chtObj.Copy
            'Paste in row T1+i
            Range("T1").Offset(i).Select
            .Activate
            Application.Wait Now + TimeSerial(0, 0, 1)
            .Paste
            Application.Wait Now + TimeSerial(0, 0, 1)
            i = i + 10
            .Activate
        End With
    Next chtObj

    'Set the data references to target sheet
    SetChartRef (target)

End Sub

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

Второй по простоте способ, если данные диаграммы организованы просто, — использовать «Выбрать данные» на ленте или в контекстном меню и изменить диапазон, указанный в RefEdit «Диапазон данных диаграммы» в верхней части диалогового окна.

Утомительный способ — изменить все ссылки на лист во всех формулах ряда диаграммы, например, изменив все экземпляры Sheet1 в следующей формуле на Sheet2: = SERIES (Sheet1! $ B $ 1, Sheet1! $ A $ 2: $ A $ 4, Sheet1! $ B $ 2: $ B $ 4,1)

Как указывает @ sancho.s, вы также можете сделать это с помощью VBA, используя код, опубликованный в моем Изменить формулу ряда. Эти алгоритмы встроены в мою коммерческую надстройку Excel.

Я часто использовал формулу изменения рядов (это фактически ссылка в середине страницы, предоставленной в ответе GGuess). Это надстройка, которую можно получить здесь.

Это чрезвычайно полезно и, вероятно, покрывает потребности большинства случаев этого типа. Он предоставляет удобный интерфейс (UserForm) для поиска и замены строк в формулах ряда диаграмм. На самом деле он более универсален, чем «рабочие листы источника изменений», поскольку можно использовать поиск и замену для изменения других частей формулы ряда сразу для многих рядов.