grafico

XD se me olvidaba el codigo que tengo es :

ActiveSheet.ChartObjects("Gráfico 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

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

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("Gráfico 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,

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

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