Dynamisk skalering af grafer i XL.

http://pmexcelent.dk/Skaler.xls

Det var ikke lige det jeg mente.
Det er akserne jeg gerne vil kunne bestemme min- og max-værdierne for.

indtast skala for x-akse i b2
kør makro -

Sub Makro1()
Dim x
x = [b2].Value

    ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
        .MinimumScaleIsAuto = True
        .MaximumScale = x
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
    ActiveWindow.Visible = False
    Windows("Mappe1").Activate
    Range("B2").Select
End Sub

det kniber lidt med tiden når man er på job :-)
men i eftermiddag

Det er lidt derhen ad.
Hvordan bestemmer man hvilken akse man skruer på?
Det er tilsyneladende y-aksen der bliver skrevet til i ovenstående kode.

start makrooptager
dobbeltklik på den akse du vil ændre på
ændre forvalgt tal + ok
klik på celle hvor du vil kunne styre størrelsen
stop optager
gå ind og ret i makro
ala det jeg lavede

Den er fin.
Her er lidt at bygge videre på.
Jeg havde nok håbet på en mere færdig xla add-in, men i mangel af bedre kan jeg komme videre på denne måde ;o)

Hvis du vil ha´ dine point, må du sende et svar.

Tak for hjelpen.

ok velbekom