Cell reference in chart scale?

Similar Threads:

1.Change scales from reference cells value for a chart in a separate sheet

Jon,
the duplicate Sheets("XY") was indeed very silly! I took it out and the
debugger still strike that line.
The error I get is: Run-time error 438.
I change that line to ///
Windows("erslOg_XxYy.XLS").Sheets("XY").Range("$e$41").Value    ////and
the probem persists...
It will be nice if I get it fixed since then I can create a kind of
zoom in the chart (using a second range of vaues for axes).

The working code I took it from your website and I like to thank you
very much for that,
Emil

2.Change scales from reference cells value for a chart in a separate sheet

Can anyone help me with this macro (my programming experience is very
limited).
I have a chart Chart4 on a sheet XY in the workbook erslOg_XxYx.
The same chart is in a separate sheet Chart2 on the same workbook (I
did that so I can print it easier).
The scale and the title is changed from reference cells from XY.
For the chart on the XY sheet is working fine, but is not for the chart
on separate sheet.
Last night I had the impression is working but now it is striking at:
.HasTitle = True
if I comment that it will execute (will change the title accordingly)
but it will strike at any row which makes reference to the cells in XY
sheet like:
.MinimumScale =
ThisWorkbook.Sheets("XY").Sheets("XY").Range("$e$41").Value

What is wrong with addressing those cells?
Thank you,
emil


-----------------------------------------------this is
working---------------------------------------------------------
Sub scales2()
' change scales on chart on the current sheet Macro

    ActiveSheet.ChartObjects("Chart 4").Activate
    ActiveChart.Axes(xlValue).Select


    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = ActiveSheet.Range("$c$1").Text
    End With

    With ActiveChart.Axes(xlCategory)
        .MinimumScale = ActiveSheet.Range("$e$41").Value
        .MaximumScale = ActiveSheet.Range("$e$42").Value
        .MinorUnit = ActiveSheet.Range("$e$43").Value
        .MajorUnit = ActiveSheet.Range("$e$44").Value
        .Crosses = xlCustom
        .CrossesAt = ActiveSheet.Range("$e$41").Value
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With

    With ActiveChart.Axes(xlValue)
        .MinimumScale = ActiveSheet.Range("$h$42").Value
        .MaximumScale = ActiveSheet.Range("$h$41").Value
        .MinorUnit = ActiveSheet.Range("$h$43").Value
        .MajorUnit = ActiveSheet.Range("$h$44").Value
        .Crosses = xlCustom
        .CrossesAt = ActiveSheet.Range("$h$42").Value
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
------------------------------------------------------this is not
working-------------------------------------------------

' change scales to the same but for chart on separate sheet Macro

    ActiveWindow.Visible = False

    Windows("erslOg_XxYy.XLS").Activate
    Sheets("Chart2").Select

   ActiveChart.ChartArea.Select
   ActiveChart.Axes(xlValue).Select


    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text =
ThisWorkbook.Sheets("XY").Range("$c$1").Text
    End With

    With ActiveChart.Axes(xlCategory)
        .MinimumScale =
ThisWorkbook.Sheets("XY").Sheets("XY").Range("$e$41").Value
        .MaximumScale = ThisWorkbook.Sheets("XY").Range("$e$42").Value
        .MinorUnit = ThisWorkbook.Sheets("XY").Range("$e$43").Value
        .MajorUnit = ThisWorkbook.Sheets("XY").Range("$e$44").Value
        .Crosses = xlCustom
        .CrossesAt = ThisWorkbook.Sheets("XY").Range("$e$41").Value
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With

    With ActiveChart.Axes(xlValue)
        .MinimumScale = ThisWorkbook.Sheets("XY").Range("$h$42").Value
        .MaximumScale = ThisWorkbook.Sheets("XY").Range("$h$41").Value
        .MinorUnit = ThisWorkbook.Sheets("XY").Range("$h$43").Value
        .MajorUnit = ThisWorkbook.Sheets("XY").Range("$h$44").Value
        .Crosses = xlCustom
        .CrossesAt = ThisWorkbook.Sheets("XY").Range("$h$42").Value
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With

End Sub

3.Dynamically Scale Gantt Chart Time Scale

Excel 2007 (or 2010 Beta, if that's the only way to do it)

I've developed a Gantt Chart using a stacked bar chart.  It works great.  

Is there any way to have the horizontal axis (or vertical axis, I get 
confused with the terms in a stacked bar chart) expand in and out based on 
the MIN and MAX of the dates in the plotted range?

4.proper scaling in chart (with time-scale X-axis)

I have a chart with the following data:

x    y
-    -
1    1
1.25    1.25
2    2
3    3
5    5

I expect to see a chart with a straight line graph.  The only way I
can get the X-axis to scale is to go into Chart Options->Axis-
>Category (X) axis->Time-Scale and then format the X-axis as a number
as opposed to a date.  However, this still treats my data as dates so
that 1 and 1.25 show up on the same point on the X-axis (1).  Is there
any way to "number" scale my X-axis or some other approach to
accomplish this goal of my X-axis scaling along with the values?

Thanks.

Edward

5.Cell value as chart scale maximum

I have a chart on a worksheet and want to make the Y scale maximum value 
equal the value of cell Y3 (this is a merged cell range Y3:Y5), rounded up to 
the next increment.  For example, 101% in merged cell Y5 would be 105% in 
the chart Y scale maximum.  How would I do this?

6. control chart scale with cell value in excel

7. Link chart axes' scale values to cells

8. How do I get charts to scale down with remainder of cells in 2007