Excel a automatická změna zdrojovýc dat pro graf

[D_a_v_i_d]

Ahoj, ano, řešit se to dá například takto:

Sub Nahradit()
    Dim Puvodni, Novy As String
    Puvodni = InputBox("Zadejte nazev puvodniho listu:")
    Novy = InputBox("Zadejte nazev noveho listu:")

    Dim i, PocetGrafu As Integer
    Dim sValueString, sNahrazovany, sNahrada As String
    Dim Rada As Series
    PocetGrafu = 0
    PocetGrafu = ActiveSheet.ChartObjects.Count
    
    For i = 1 To PocetGrafu
        ActiveSheet.ChartObjects(i).Activate
                 For Each Rada In ActiveChart.SeriesCollection
                    sNahrazovany = Puvodni & "!"
                    sNahrada = Novy & "!"
                    sValueString = Replace(Rada.Formula, sNahrazovany, sNahrada)
                    Rada.Formula = sValueString
                Next
        Next i
End Sub

Toto makro když spustíš na novém "grafovém" listu a zadáš mu název původního a nového "zdrojového listu dat", projde všechny grafy a ve všech řadách by mělo nahradit výskyt starého názvu listu novým.