setting scale for graphs
Instead of having to enter numbers manuallly, is it possible to point
the Max and Min values under Scale for a graph to specific cells in the spreadsheet? |
setting scale for graphs
On Mar 4, 11:14*am, namsilat wrote:
Instead of having to enter numbers manuallly, is it possible to point the Max and Min values under Scale for a graph to specific cells in the spreadsheet? Here is a recorded macro. Just change the reference ..MinimumScale =range("a2") ..MaximumScale = range("a3") Sub Macro7() ' ' Macro7 Macro ' Macro recorded 3/5/2011 by Donald B. Guillett ' ' ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.Axes(xlValue).Select With ActiveChart.Axes(xlValue) .MinimumScale = 5 .MaximumScale = 25 .MinorUnitIsAuto = True .MajorUnitIsAuto = True .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone End With End Sub |
setting scale for graphs
Thanks for the macro. I forgot to mention that the charts are in
another sheet, while the soruce data are in sheet 1. On Sat, 5 Mar 2011 09:46:57 -0800 (PST), Donald Guillett wrote: On Mar 4, 11:14?am, namsilat wrote: Instead of having to enter numbers manuallly, is it possible to point the Max and Min values under Scale for a graph to specific cells in the spreadsheet? Here is a recorded macro. Just change the reference .MinimumScale =range("a2") .MaximumScale = range("a3") Sub Macro7() ' ' Macro7 Macro ' Macro recorded 3/5/2011 by Donald B. Guillett ' ' ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.Axes(xlValue).Select With ActiveChart.Axes(xlValue) .MinimumScale = 5 .MaximumScale = 25 .MinorUnitIsAuto = True .MajorUnitIsAuto = True .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone End With End Sub |
All times are GMT +1. The time now is 05:41 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com