Set angle for ticklabel on axis

[jnevada]

I build excel chart via VBA and need to know what is the property to set angle for ticklabel on X axis. I tried to record a macro but didn't get any code recorded.

Thanks in advance.

[Andy Pope]

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

values between +/- 90

[jnevada]

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.

[Andy Pope]

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

[jnevada]

    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?

[Andy Pope]

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