Ahoj
Jednalo sa mi o graf č.1 - modrý tam som pridal jeden graf - Total slabs..
Nevyzerá to až tak hrozne takže sa to asi nebude musieť rozdeľovať na dva ako som chcel.
Ostali mi tam zase tie nešťastné nuly a ja zas prehrávam boj s nimi, neviem použiť to čo si mi už raz inde pomohol..v inom súbore..
Sub Makro1()
Dim a, b
a = Array(5, 6, 140, 31, 53)
b = Array(10, 12, 141, 36, 57)
For i = 0 To 4
cas1 = "=UDAJE!R" & a(i) & "C4:R" & a(i) & "C" & (Range("hárok1!Q2") + 3)
cas2 = "=UDAJE!R" & b(i) & "C4:R" & b(i) & "C" & (Range("hárok1!Q2") + 3)
'MsgBox ActiveSheet.ChartObjects(i + 1).Chart.Name
ActiveSheet.ChartObjects(i + 1).Chart.SeriesCollection(1).Values = cas1
ActiveSheet.ChartObjects(i + 1).Chart.SeriesCollection(2).Values = cas2
Next i
End Sub...
A pritom teraz sa jedná o úpravu jediného grafu 77 ):