Set angle for ticklabel on axis

Originally Posted by Andy Pope

Activesheet.chartobjects(1).Chart.Axes(xlCategory).TickLabels.Orientation = 22

values between +/- 90

Andy,

Thank you so so much. It works very well. I'm making xlLineMarkers using VBA. One thing I notice is that the join part of the line is a sharp angle. Is there any way to make it smoother like a curve?

Very appreciate.

Originally Posted by Andy Pope

    With ActiveSheet.ChartObjects(1).Chart
        With .SeriesCollection(1)
            .Smooth = True
        End With
    End With

Thanks, Andy.

But I got error on this one:

Dim aveSeries As Series
    
For Each aveSeries In objChart.SeriesCollection
        aveSeries.Delete
Next aveSeries

Set aveSeries = objChart.SeriesCollection.NewSeries
    
With aveSeries
            .Formula = "=Series(Chart_data!A2,Chart_data!$A$3:$A$15, Chart_Data!$E$3:E$15, 1)"
            .Smooth = True  'error, "this property is not valid for this chart  type"
End With

Do you know why?

Originally Posted by Andy Pope

no idea. can you post example workbook.
When I create a test file the code bombs on the .Formula line

Andy,

It works now. I think the problem is I can't use this property before I define the chart type. Thank again. Here is my code:

Dim aveSeries As Series
    
For Each aveSeries In objChart.SeriesCollection
        aveSeries.Delete
Next aveSeries

Set aveSeries = objChart.SeriesCollection.NewSeries
    
With aveSeries
            .Formula = "=Series(Chart_data!A2,Chart_data!$A$3:$A$15, Chart_Data!$E$3:E$15, 1)"
End With

With objChart
        .HasLegend = False
        .ChartType = xlLineMarkers
        .........
End With
    
With objChart
   With .SeriesCollection(1)
       .Smooth = True
   End With
End With