Properties of data label

[ThomasOES]

Hello

I would like to have the equation centered on the graph.
Here is some code with some properties.
But how to set the width?
How to center the equation?

    With .FullSeriesCollection(1).Trendlines(1)
        .DisplayEquation = True
            With .DataLabel
                .Left = 170
                .Top = 200
                With .Format.TextFrame2.TextRange.Font
                    .Bold = msoTrue
                    .Fill.ForeColor.RGB = rgbRed
                    .Size = 10
                End With
            End With
    End With

I prefer to not "experiment" with the .left property, rather a permanent solution.


Any help would be appreciated
Tom

 

[ThomasOES]

I tried this, but the equation isn't centered

    With .FullSeriesCollection(1).Trendlines(1)
        .DisplayEquation = True
            With .DataLabel
                .Top = 185
                With .Format.TextFrame2.TextRange.Font
                    .Bold = msoTrue
                    .Fill.ForeColor.RGB = rgbRed
                    .Size = 10
                End With
                pltwth = ActiveChart.PlotArea.Width
                eqwth = ActiveChart.FullSeriesCollection(1).Trendlines(1).DataLabel.Width
                eqlft = (pltwth - eqwth)/2
                .Left = eqlft
            End With
    End With