How to display just first and last values on axis?

[rmgarrett]

Greetings,

I'm trying to condense some charts, and I'd like to show just the first/last (beginning/ending) axis labels, not the values at each tick mark. For instance, if my axis now reads 0, 5, 10, 15, 20, 25, I want it to just have 0, 25 (keeping the tick marks).

Can anyone tell me a way to do this?

Thanks in advance for the help!

 

[Domski]

Hi,

I wrote this a while back to just show the first and last data labels on a set of line graphs that plotted monthly values.

Maybe you can adapt it to your purpose:

Dim myCount, myCount2 As Integer
Dim myChart As ChartObject

For Each myChart In ActiveSheet.ChartObjects
    
    myChart.Chart.ApplyDataLabels ShowValue:=False
    
    For myCount = 1 To myChart.Chart.SeriesCollection.Count
                    
        ' determine last point in series based on month being run
        myCount2 = Range("Month").Value
    
        myChart.Chart.SeriesCollection(myCount).Points(1).ApplyDataLabels ShowValue:=True
        myChart.Chart.SeriesCollection(myCount).Points(myCount2).ApplyDataLabels ShowValue:=True
      
        myChart.Chart.SeriesCollection(myCount).DataLabels.Font.Size = 8

    Next myCount
      
Next myChart

Dom

 

[rmgarrett]

Domski, thank you for posting this.

What I ended up doing was modifying the axis interval. So if I wanted just "2004" and "2008" to display, I set the label interval to 4.

I am sure your way is better if I had a large number of graphs to do this to.

Again, thanks!


--Rachel