VBA Excel 2007 - graf s proměným měřítkem osy

[Branscombe]

Ahoj všichni,

mám opět drobný problém. V Excelu 2003 mi níže uvedený zápis ve VBA pro graf fungoval a teď mi to ve 2007 vyhazuje chybu. Můžete prosím někdo zkusit jestli Vám podobný zápis ke grafu bude v Excel 2007 fungovat ??

Kód: Vybrat vše

Private Sub worksheet_change(ByVal target As Range)

    With ActiveSheet.ChartObjects("Chart 2").Chart

    With .Axes(xlValue)
    .MaximumScale = ActiveSheet.Range("$AH$1").Value
    .MinimumScale = ActiveSheet.Range("$AH$2").Value
    .MajorUnit = ActiveSheet.Range("$AF$2").Value
    .MinorUnit = ActiveSheet.Range("$AF$3").Value

    End With
    End With

End Sub

[navstevnik]

A co takhle uvest, o jakou chybu se jedna. A prilozeny sesit .xlsm s predmetnym grafem je take zadouci.