SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: jpardo84 en Viernes 4 de Julio de 2008, 18:28
-
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
-
y a todo esto cual es el error? :rolleyes:
Saludos
-
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