none
Ejes xlValue, xlPrimary y xlValue, xlSecondary sin etiquetas al lado del eje RRS feed

  • Debate general

  • Hola.

    Necesito establecer a ninguno las etiquetas de los ejes xlValue, xlPrimary y xlValue, xlSecondary.

    Para tener una idea del codio vba grabé el proicedimiento que hice manualmente.

    El código de la macro es:

     
    ActiveChart.Axes(xlValue, xlSecondary).Select
    Selection.TickLabelPosition = xlNone

    Pero al correr ese código en una macro nueva

    Sub sinetiquetasdeejes()
    ActiveChart.Axes(xlValue, xlSecondary).Select
    Selection.TickLabelPosition = xlNone
    En sub

    VBA muestra: Se ha producido el error '91' en tiempo de ejecusión
    Variable de objeto o bloque With no establecido

    Entonces reescribo el codido así:

    Dim ch As Chart
    Set ch = ActiveChart
        With ch.Axes(xlValue, xlSecondary).Select
            .Selection.TickLabelPosition = xlNone
        End With
    End Sub

    Pero, VBA sigue mostrando el mismo Error 91

    Agraezco su ayuda para correigr el error 91

    Saludos
    • Editado usekar lunes, 17 de septiembre de 2018 16:55 Escribir título
    lunes, 17 de septiembre de 2018 16:51