Programación General > VBA

 HASTITLE MACROS EN EXCEL

(1/1)

jpardo84:
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

F_Tanori:
y a todo esto cual es el error?  :rolleyes:


Saludos

jpardo84:
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

Navegación

[0] Índice de Mensajes