Graph Auto Scale Not Working

[kgaines]

We just upgraded from Excel 2003 to Excel 2007. I have graph where I can use a drop down to select different departments to view. Since the upgrade the "auto" scale on the Y axis is not working on some of the graphs. Some display properly and some do not. The scale is way too high.

I also have a macro that I use to print the whole set - the macro works (it prints) but again, it is not autoscaling the Y axis. It is set in the macro:
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True

Any help would be greatly appreciated.
Kat

 

[taupaji]

http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q213644

 

[Jon Peltier]

Taupaji - Kat has done what the knowledge base article says to do.

Kat - If the workbook and its charts were constructed in Excel 2003, things might not always work exactly right in 2007. You may need to recreate the charts in 2007 before they update the way you'd expect.

 

[taupaji]

I used the following macro to extract data out of old link-broken charts in a ppt and to scale them. Since you too are extracting data out of the charts. Its better if you scale the excel manually using this data.
Hope this might work for you... I am also new here.. Just trying to help with whatever little I can as this site has helped me a lot... (Runs in excel...)

Sub FixAllChartsinPPTandExtractData()
Dim oSl As PowerPoint.Slide
Dim oSh As PowerPoint.Shape
Dim ppApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim sr As Integer
Dim BaseWks As Worksheet
Dim maxval, minval As Double

Set ppApp = New PowerPoint.Application
FILENAME = Application.GetOpenFilename("PPT, PPTx, PPS and PPSx,*.pp*", 1, "Select Powerpoint file", , 0)
Set PPPres = GetObject(FILENAME)
Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)

BaseWks.Activate

For Each oSl In PPPres.Slides
    For Each oSh In oSl.Shapes
        ActiveSheet.Cells.Clear
        If oSh.Type = msoChart Then
            sr = oSh.Chart.SeriesCollection.Count
            For j = 1 To sr
                With oSh.Chart.SeriesCollection(j)
                    .Format.Line.Weight = 1
                    .Format.Line.Style = msoLineSingle
                    .MarkerStyle = xlMarkerStyleNone
                    vntData = .Values
                    vntLabels = .XValues
                    For lngIndex = LBound(vntData) To UBound(vntData)
                        ActiveSheet.Cells(lngIndex, 0 + j) = vntData(lngIndex)
                    Next
                End With
            Next
            ActiveSheet.Cells(2000, 2000) = "=-1*MROUND((-1*MAX(A:Z))-2,5)"
            maxval = Cells(2000, 2000).Value
            ActiveSheet.Cells(2000, 2000) = "=-1*MROUND((-1*MIN(A:Z))+2,5)"
            minval = Cells(2000, 2000).Value
            With oSh.Chart.Axes(xlValue)
                .MinimumScaleIsAuto = False
                .MinimumScale = minval
                .MaximumScaleIsAuto = False
                .MaximumScale = maxval
                .MinorUnitIsAuto = True
                .MajorUnit = 5
                .Crosses = xlAutomatic
                .ReversePlotOrder = False
                .ScaleType = xlLinear
                .DisplayUnit = xlNone
            End With
        oSh.Chart.PlotArea.Interior.Color = vbWhite
        oSh.Chart.ChartArea.Interior.Color = vbWhite
        oSh.Chart.ChartTitle.Font.Color = vbBlack
        oSh.Chart.ChartArea.Font.Color = vbBlack
    End If
    Next
Next
BaseWks.Parent.Close True
End Sub

 

[Jon Peltier]

This must be terribly slow, populating one cell at a time:

For lngIndex = LBound(vntData) To UBound(vntData)
    ActiveSheet.Cells(lngIndex, 0 + j) = vntData(lngIndex)
Next

Dump the array in one step:

ActiveSheet.Cells(lngIndex,1).resize(, UBound(vntData) + 1 - LBound(vntData)).Value = vntData

 

[taupaji]

Yup, it was slow... Thanks for the tip...