SoloCodigo

Hola a todos, espero que me puedan ayudar con mi GRAN INQUIETUD sobre excel... y de extrema urgencia requiero que me ayuden por favor

por Macros, estoy tratando de modificar las propiedades de los graficos; como  por ejemplo el título, pero (aunque no siempre sucede), me genera error al darle HasTitle = True.

este es el codigo:

Sheets("Niv_" & hoja).Select
ActiveSheet.ChartObjects(GRAFICO).Activate
ActiveSheet.ChartObjects(GRAFICO).Chart.HasTitle = True
ActiveSheet.ChartObjects(GRAFICO).Chart.ChartTitle.Text = "Total " & Sheet4.txtPosicion & " " & VALOR & " EUR "
ActiveChart.SeriesCollection(1).Values = TOTAL
ActiveChart.SeriesCollection(1).XValues = "=niv_2!R1C1:R3C1"
    ActiveChart.ChartTitle.Select
    With Selection.Border
        .Weight = xlHairline
        .LineStyle = xlAutomatic
    End With
    Selection.Interior.ColorIndex = xlAutomatic
Sheet1.Select


COMO PUEDO CORREGIR ESTE ERROR???, y como dije antes no siempre sucede, pero la macro NUNCA DEBE FALLAR. GRACIAS

el error, es al convertir en true la propiedad hastitle del grafico

me genera error la siguiente línea:

ActiveSheet.ChartObjects(GRAFICO).Chart.HasTitle = True

Grafico, es  una variable de tiepo texto, donde se almacena el gráfico que deseo aplicar al título....
en el libro tengo alrededor de 100 graficos, y debo aplicar esta linea a cada uno de ellos...
que puedo hacer..?

Gracias por tu interes