grafico

es quitando NOSPAM y PLEASE.

Saludos,
KL

"fredy" wrote in message
news:

si claro muchas gracias... cual es el mail?

"KL" wrote:

Fredy,

Me envias la hoja y te la miro? Es un poco dificil reproducir los
problemas
con graficos ya q hay demasiadas variables.

Saludos,
KL

"fredy" wrote in message
news:
> gracias KL
> pues la hoja no esta protegida, incluso cambio otras opciones como
> fondo
> color de la serie titulos etc pewro cuando llego a la parte de cambiar
> la
> configuracion de las lineas principales sale el error
>
> ActiveSheet.ChartObjects("Grafico 1").Activate
> ActiveChart.PlotArea.Select
> With ActiveChart.Axes(xlCategory)
> .HasMajorGridlines = False
> .HasMinorGridlines = False
> End With
> With ActiveChart.Axes(xlValue)
> .HasMajorGridlines = True
> .HasMinorGridlines = False
> End With
> ActiveChart.Axes(xlValue).MajorGridlines.Select' aqui se detiene la
> macro
>
> With Selection.Border
> .ColorIndex = 15
> .Weight = xlHairline
> .LineStyle = xlDot
> End With
> este codigo lo estoy probando pero tanbien me falla
>
> "KL" wrote:
>
>> Hola Fredy,
>>
>> No consigo reproducir tu problema - el codigo parece funcionar bien.
>> ?Hay
>> algo mas q tengamos q saber? ?Esta la hoja protegida? ?Seguro q el
>> grafico
>> tiene activada la opcion MajorGridlines - puedes comprobarlo en las
>> opciones
>> de grafico?
>>
>> Saludos,
>> KL
>>
>> "fredy" wrote in message
>> news:
>> > XD se me olvidaba el codigo que tengo es :
>> >
>> > ActiveSheet.ChartObjects("Grafico 1").Activate
>> > ActiveChart.Axes(xlValue).MajorGridlines.Select
>> > With Selection.Border
>> > .ColorIndex = 15
>> > .Weight = xlHairline
>> > .LineStyle = xlDot
>> > End With
>> > End Sub
>> >
>> > muchas gracias
>> > "fredy" wrote:
>> >
>> >> hola grupo
>> >> como soluciono este problema
>> >>
>> >> fallo el metodo select de la clase gridlines
>> >>
>> >> sale cuando ejecuto la macro e intento cambiarle el color a las
>> >> lineas
>> >> paralelas del eje X
>> >>
>> >> muchas gracias
>>
>>
>>

Fredy,

Lo he recibido. Sin embargo sigo sin poder reproducir el error - me funciona
bien. De todas formas decirte q el codigo del macro 9 se puede limpiar un
poco. A ver si te funciona esto:

Sub Macro9()
ActiveSheet.ChartObjects(1).Activate
With ActiveChart.Axes(xlValue).MajorGridlines.Border
.ColorIndex = 15
.Weight = xlHairline
.LineStyle = xlDot
End With
End Sub

Saludos,
KL

"fredy" wrote in message
news:

si claro muchas gracias... cual es el mail?

"KL" wrote:

Fredy,

Me envias la hoja y te la miro? Es un poco dificil reproducir los
problemas
con graficos ya q hay demasiadas variables.

Saludos,
KL

"fredy" wrote in message
news:
> gracias KL
> pues la hoja no esta protegida, incluso cambio otras opciones como
> fondo
> color de la serie titulos etc pewro cuando llego a la parte de cambiar
> la
> configuracion de las lineas principales sale el error
>
> ActiveSheet.ChartObjects("Grafico 1").Activate
> ActiveChart.PlotArea.Select
> With ActiveChart.Axes(xlCategory)
> .HasMajorGridlines = False
> .HasMinorGridlines = False
> End With
> With ActiveChart.Axes(xlValue)
> .HasMajorGridlines = True
> .HasMinorGridlines = False
> End With
> ActiveChart.Axes(xlValue).MajorGridlines.Select' aqui se detiene la
> macro
>
> With Selection.Border
> .ColorIndex = 15
> .Weight = xlHairline
> .LineStyle = xlDot
> End With
> este codigo lo estoy probando pero tanbien me falla
>
> "KL" wrote:
>
>> Hola Fredy,
>>
>> No consigo reproducir tu problema - el codigo parece funcionar bien.
>> ?Hay
>> algo mas q tengamos q saber? ?Esta la hoja protegida? ?Seguro q el
>> grafico
>> tiene activada la opcion MajorGridlines - puedes comprobarlo en las
>> opciones
>> de grafico?
>>
>> Saludos,
>> KL
>>
>> "fredy" wrote in message
>> news:
>> > XD se me olvidaba el codigo que tengo es :
>> >
>> > ActiveSheet.ChartObjects("Grafico 1").Activate
>> > ActiveChart.Axes(xlValue).MajorGridlines.Select
>> > With Selection.Border
>> > .ColorIndex = 15
>> > .Weight = xlHairline
>> > .LineStyle = xlDot
>> > End With
>> > End Sub
>> >
>> > muchas gracias
>> > "fredy" wrote:
>> >
>> >> hola grupo
>> >> como soluciono este problema
>> >>
>> >> fallo el metodo select de la clase gridlines
>> >>
>> >> sale cuando ejecuto la macro e intento cambiarle el color a las
>> >> lineas
>> >> paralelas del eje X
>> >>
>> >> muchas gracias
>>
>>
>>

ese cambio funciono, ya no sale el error muchas gracias KL Ç:D

"KL" wrote:

Fredy,

Lo he recibido. Sin embargo sigo sin poder reproducir el error - me funciona
bien. De todas formas decirte q el codigo del macro 9 se puede limpiar un
poco. A ver si te funciona esto:

Sub Macro9()
ActiveSheet.ChartObjects(1).Activate
With ActiveChart.Axes(xlValue).MajorGridlines.Border
.ColorIndex = 15
.Weight = xlHairline
.LineStyle = xlDot
End With
End Sub

Saludos,
KL

"fredy" wrote in message
news:
> si claro muchas gracias... cual es el mail?
>
> "KL" wrote:
>
>> Fredy,
>>
>> Me envias la hoja y te la miro? Es un poco dificil reproducir los
>> problemas
>> con graficos ya q hay demasiadas variables.
>>
>> Saludos,
>> KL
>>
>> "fredy" wrote in message
>> news:
>> > gracias KL
>> > pues la hoja no esta protegida, incluso cambio otras opciones como
>> > fondo
>> > color de la serie titulos etc pewro cuando llego a la parte de cambiar
>> > la
>> > configuracion de las lineas principales sale el error
>> >
>> > ActiveSheet.ChartObjects("Grafico 1").Activate
>> > ActiveChart.PlotArea.Select
>> > With ActiveChart.Axes(xlCategory)
>> > .HasMajorGridlines = False
>> > .HasMinorGridlines = False
>> > End With
>> > With ActiveChart.Axes(xlValue)
>> > .HasMajorGridlines = True
>> > .HasMinorGridlines = False
>> > End With
>> > ActiveChart.Axes(xlValue).MajorGridlines.Select' aqui se detiene la
>> > macro
>> >
>> > With Selection.Border
>> > .ColorIndex = 15
>> > .Weight = xlHairline
>> > .LineStyle = xlDot
>> > End With
>> > este codigo lo estoy probando pero tanbien me falla
>> >
>> > "KL" wrote:
>> >
>> >> Hola Fredy,
>> >>
>> >> No consigo reproducir tu problema - el codigo parece funcionar bien.
>> >> ?Hay
>> >> algo mas q tengamos q saber? ?Esta la hoja protegida? ?Seguro q el
>> >> grafico
>> >> tiene activada la opcion MajorGridlines - puedes comprobarlo en las
>> >> opciones
>> >> de grafico?
>> >>
>> >> Saludos,
>> >> KL
>> >>
>> >> "fredy" wrote in message
>> >> news:
>> >> > XD se me olvidaba el codigo que tengo es :
>> >> >
>> >> > ActiveSheet.ChartObjects("Grafico 1").Activate
>> >> > ActiveChart.Axes(xlValue).MajorGridlines.Select
>> >> > With Selection.Border
>> >> > .ColorIndex = 15
>> >> > .Weight = xlHairline
>> >> > .LineStyle = xlDot
>> >> > End With
>> >> > End Sub
>> >> >
>> >> > muchas gracias
>> >> > "fredy" wrote:
>> >> >
>> >> >> hola grupo
>> >> >> como soluciono este problema
>> >> >>
>> >> >> fallo el metodo select de la clase gridlines
>> >> >>
>> >> >> sale cuando ejecuto la macro e intento cambiarle el color a las
>> >> >> lineas
>> >> >> paralelas del eje X
>> >> >>
>> >> >> muchas gracias
>> >>
>> >>
>> >>
>>
>>
>>