imam eno težavo in bi prosil za pomoč.
V stolpcu A (datum) in B (vrednosti) imam zapisane vrednosti, ki jih želim prikazati na grafu. Število zapisov se spreminja (od 10-100) in sedaj bi rad, da bi se tudi obseg X in Y osi spreminjal glede na število zapisov.
Za X os sem posnel makro in malo priredil kodo...
Koda: Izberi vse
Sub prikaz_na_grafu()
Dim zadnji_zapis_graf As Long
zadnji_zapis_graf = ActiveSheet.Range("A65536").End(xlUp).Row
ActiveSheet.ChartObjects("Grafikon 1").Activate
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScale = ActiveSheet.Range("A1")
.MaximumScale = ActiveSheet.Range("A" & zadnji_zapis_graf)
.MinorUnit = 0.5
.MajorUnit = 1
.Crosses = xlCustom
.CrossesAt = Auto
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
Koda: Izberi vse
ActiveSheet.ChartObjects("Grafikon 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Values = "=Graf!R1C1:R30C1"
Obstaja še kakšna druga rešitev...?
Že v naprej se zahvaljujem za pomoč.
Lep pozdrav, Loris