Find Minimum Value of Active Chart

Question

so I am wondering how to scale a chart so that the minimum value of the y-axis becomes the minimum value between all the series that are on the chart. Here is the code that I am working with:

 Sub This() With Sheets("Plots").ChartObjects("The Chart").Chart.Axes(xlValue) For i = ActiveChart.SeriesCollection.Count To 1 Step -1 **find minimum value** Next i .MinimumScale = miny End With End Sub

Why not find the minimum value in the data set itself rather than going through the chart? — Mathieu Guindon
– Mathieu Guindon, Commented Jul 7, 2016 at 20:00
The code as written will also not work if the ActiveChart is different from The Chart. Read More about With ... End With Blocks — Scott Holtzman
– Scott Holtzman, Commented Jul 7, 2016 at 20:02
I have a bunch of charts so I thought that this would be easier. Also because the data is in a bunch of different ranges. I am also kind of interested in this problem now. — Adam Warner
– Adam Warner, Commented Jul 7, 2016 at 20:03

Tim Williams · Accepted Answer · 2016-07-07 20:10:14Z

Sub Tester() Dim cht As Chart Dim s As Series, mins(), x Set cht = Sheets("Plots").ChartObjects("The Chart").Chart ReDim mins(1 To cht.SeriesCollection.Count) x = 1 For Each s In cht.SeriesCollection mins(x) = Application.Min(s.Values) x = x + 1 Next s cht.Axes(xlValue).MinimumScale = Application.Min(mins) End Sub

Golden Gate Group · Accepted Answer · 2022-06-05 21:27:32Z

Dim maxv As Double = objChart.Axes(XlAxisType.xlValue).MaximumScale() Dim minv As Double = objChart.Axes(XlAxisType.xlValue).MinimumScale()

Collectives™ on Stack Overflow

Find Minimum Value of Active Chart

2 Answers 2

1 Comment

Comments

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Related