Cambiar el orden de línea de tendencia de una gráfica usando VBA

[Deladier]

Hola.

Tengo una gráfica y mediante VBA puedo cambiar el Orden de la línea de tendencia de esa gráfica pero al tratar de cambiar de polinomial a lineal tengo problemas al parecer con el Orden. Según creo yo, 'Order' ya no debería aparecer para una gráfica lineal, pero no sé si ese sea el problema únicamente.
Aquí está mi codigo:

Sub Macro1()

Dim grado As Integer, tipo As String, sel As String


grado = Range("B10").Value

ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.SeriesCollection(1).Trendlines(1).Select


If grado = 1 Then tipo = xlLinear
If grado > 1 Then tipo = xlPolynomial


With Selection
.Type = tipo
.Order = grado
.Forward = 0
.Backward = 0
.InterceptIsAuto = True
.DisplayEquation = True
.DisplayRSquared = True
.NameIsAuto = True
End With

End Sub


¿Cómo se puede solucionar ésto?

Gracias de antemano. Saludos

 

[Deladier]

¿Como puedo hacer para que en el código '.Order = grado' aparezca (para una gráfica polinomial) o desaparezca (para una gráfica lineal)? Creo que eso solucionaría el problema.

 

[bmacias]

Deladier,

Que pasa si pones el "With Selection" statement para cada condicion?

Cuando se lineal no incluyas el .Order y cuando sea polinominal si.

Saludos,

Benjamin

 

[sailepaty]

Intenta así,

With Selection
    .Type = tipo
    If .Type = xlPolynomial Then .Order = grado
    .Forward = 0
    .Backward = 0
    .InterceptIsAuto = True
    .DisplayEquation = True
    .DisplayRSquared = True
    .NameIsAuto = True
End With

Saludos

 

[Deladier]

Gracias por su ayuda.