Dynamisk akseskalering i diagram

Kan du ikke bare sætte auto-skalering til?

ASKIMS

Alternativt kan du klare dit problem vha en makro

Sub Makro1()

    With ActiveChart.Axes(xlValue)
        .MinimumScale = [f1] \' Celle F1
        .MaximumScale = [F2] \' Celle F2
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
End Sub

Autoskalering gør ikke det, jeg vil have den til.

Pointen er, at man kan indtaste en værdi i et felt, som grafen så bruger som maksimumsværdien for aksen, så der er autoskalering ubrugelig.

Ang makro:
1) Så længe du ikke angiver hvordan, så er det ubrugeligt.
2) Så vidt det er muligt, skal makroer undgåes.

lsimony:
Har lige sat dit forslag ind i arket.
Hvis jeg kører makroen med et tilfældigt felt markeret, får jeg følgende fejl:

Run-time error \'91\':
Object variable or With block variable not set

Hvis jeg har selve grafen markeret:
Run-time error \'1004\':
Kan ikke angive egenskaben MinimumScale for klassen Axis

Hvis jeg vælger y-aksen (som er den relevante i dette tilfælde):
Run-time error \'1004\':
Kan ikke angive egenskaben MinimumScale for klassen Axis

Nogen forslag?

Jeg háder den Acceptér knap!

Øhhh. Jeg skal kigge på det, så løsningen bliver acceptabel. Det bliver dog først i aften.
Håber det er OK.

Hilsen

Lars

Vil du have dine point igen???

Nah ... det går nok ...

Hej Martin

Som lovet er her en macro som forhåbentlig virker. Den virker hos mig. Macroen updater grafen, hvis der er nogle ændringer i arket. Placer den på følgende måde:

Tryk alt + 11 og vælg ThisWorkBook og indsæt macroen:

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
        ByVal Source As Range)
 
Dim minYakse As Integer
Dim maxYakse As Integer
Dim minXakse As Integer
Dim maxXakse As Integer

minYakse = [F1].Value
maxYakse = [F2].Value
minXakse = [F3].Value
maxXakse = [F4].Value
ActiveSheet.ChartObjects(\"Diagram 1\").Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = minYakse
ActiveChart.Axes(xlValue).MaximumScale = maxYakse
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = minXakse
ActiveChart.Axes(xlCategory).MaximumScale = maxXakse
Windows(FullName).Activate

End Sub


Macroen henter værdierne fra F1 til F4. Disse kan du bare ændre så de passer til dit ark.
Mit navn på grafen var Diagram 1. Du kan finde dit navn ved højreklikke på grafen og vælge Diagramvindue. I den blå bjælke kan du aflæse grafens navn.

det kører \"ad lort\" ... måske fordi jeg har fire ark i filen?

vil du have arket og rode med?

Jeg kan da prøve. Du kan sende arket til mamus@simony.dk

lsimony - mange tak for hjælpen.

Gider du skrive en kommentar om, hvordan du fik det til at virke, så andre besøgende på Eksperten også kan få det at vide?

Jeg vil godt smide 45 points for det :-D