Jump to content

compatibilidad VBA excel 2007-2010


R0CI0

Recommended Posts

Hola a todos.

Me ha ocurrido algo extraño. Me acabo de instalar el excel 2010 (hasta ahora usaba el 2007), y al abrir un archivo que me funcionaba perfectamente en la version 2007 (de hecho lo he vuelto a abrir en el 2007 y me funciona perfectamente), me da error una parte de codigo que oculta una imagen a la que he asignado un nombre previamente, "EsquemaNiveles":

  
'Ocultamos la imagen
ActiveSheet.Shapes(EsquemaNiveles).Visible = False
[/CODE]

en otra rutina en la que la imagen vuelve a mostrarse, tambien me vuelve a dar el mismo error (obviamente):

[CODE]
'Mostramos la imagen
ActiveSheet.Shapes(EsquemaNiveles).Visible = True
[/CODE]

Por qué me falla esta parte del código? Es incompatible con la nueva version?

Me gustaria que mi archivo se pudiera utilizar indistintamente en excel 2007 o 2010, y que la imagen estuviera ya insertada en el archivo. Existe alguna forma diferente de mostrar/ocultar imagenes insertadas en el archivo para que funcione en los 2 tipos de excel?

Muchas gracias por la ayuda

Edito: he probado a añadir comillas al nombre asignado ("EsquemaNiveles") y tampoco, por si el fallo fuera ese...

Edito II: (perdón por tanta edición, hoy no estoy agil...) añado un archivo de ejemplo de este problema, que me funciona a la perfeccion en el excel 2007 pero en el 2010 me da error...

Ejemplo fallo comp excel 7-10.rar

Link to comment
Share on other sites

Hola!

Gracias por responder tan rapido

A que te refieres exactamtne con referencias?? tengo que incorporar un archivo de referencias al programa?

Si es asi, el asunto se me complica mucho, pues me gustaria que este archivo lo pudiera usar cualquier persona, que no tuviera que instalar previamente un complemento ni nada por el estilo, como mucho activar las macros.

Hay algun sistema para que esto no sea necesario hacerlo?

Link to comment
Share on other sites

Hola de nuevo:

En este caso no hay ninguna incompatibilidad entre versiones, ni se trata de un problema de referencias.

Hay algo que nos nos cuentas, ya que el libro de ejemplo no funciona ni en la versión 2010, ni en la 2007, ni en ninguna otra.

EsquemaNiveles es una variable que debe contener o el nombre de la imagen o el nº de orden de la misma dentro de la colección Shapes.

En el ejemplo, el nombre de la imagen es "1 Imagen", por lo que debería quedar así:



Private Sub MostrarImagen_Click()
ActiveSheet.Shapes("1 Imagen").Visible = True
End Sub


Private Sub OcultarImagen_Click()
ActiveSheet.Shapes("1 Imagen").Visible = False
End Sub
[/CODE]

o así:

[CODE]

Private Sub MostrarImagen_Click()
ActiveSheet.Shapes(1).Visible = True ' Suponiendo que solo hay una imagen o es la primera
End Sub

Private Sub OcultarImagen_Click()
ActiveSheet.Shapes(1).Visible = False ' Suponiendo que solo hay una imagen o es la primera
End Sub
[/CODE]

o así:

[CODE]

Private Sub MostrarImagen_Click()
EsquemaNiveles = "1 Imagen"
ActiveSheet.Shapes(EsquemaNiveles).Visible = True
End Sub


Private Sub OcultarImagen_Click()
EsquemaNiveles = "1 Imagen"
ActiveSheet.Shapes(EsquemaNiveles).Visible = False
End Sub
[/CODE]

o le cambias el nombre a la imagen por "[b]EsquemaNiveles[/b]" y entonces:

[CODE]

Private Sub MostrarImagen_Click()
ActiveSheet.Shapes("EsquemaNiveles").Visible = True
End Sub


Private Sub OcultarImagen_Click()
ActiveSheet.Shapes("EsquemaNiveles").Visible = False
End Sub
[/CODE]

Saludos

Link to comment
Share on other sites

Hola MacroAntonio.

Gracias por tu respuesta. La verdad es que aplicando una de las soluciones que aportas ya funciona a la perfección, sin problemas.

Pero hoy he vuelto a abrir el archivo que envié, y en mi ordenador si que sigue funcionando en el 2007, mientras que en el 2010 no. No dejé por decir nada, en serio.

Intenté cambiarle el nombre a la imagen insertada en su dia pero no supe como. Y en internet vi una solucion en la que asignaban desde excel, desde el administrador de nombres un nombre a una seleccion de imagen, y que luego en VBA se reconocia ese nombre. Veo que no era del todo correcto, y que el código "cojeaba", aunque en un principio parecia que estaba bien...

Muchas gracias por todo.

Un saludo

[sOLUCIONADO]

Link to comment
Share on other sites

Hola MacroAntonio.

Gracias por tu respuesta. La verdad es que aplicando una de las soluciones que aportas ya funciona a la perfección, sin problemas.

Pero hoy he vuelto a abrir el archivo que envié, y en mi ordenador si que sigue funcionando en el 2007, mientras que en el 2010 no. No dejé por decir nada, en serio.

Intenté cambiarle el nombre a la imagen insertada en su dia pero no supe como. Y en internet vi una solucion en la que asignaban desde excel, desde el administrador de nombres un nombre a una seleccion de imagen, y que luego en VBA se reconocia ese nombre. Veo que no era del todo correcto, y que el código "cojeaba", aunque en un principio parecia que estaba bien...

Muchas gracias por todo.

Un saludo

[sOLUCIONADO]

Link to comment
Share on other sites

Gracias!!!

esa también me la guardo!

:D

Lo había logrado cambiar en el propio excel, en la ventana blanca que hay a la izquierda de la barra de fórmulas, bajo los menus... si seleccionas la imagen te muestra ahí el nombre, pudiéndose modificar...

Link to comment
Share on other sites

Lo había logrado cambiar en el propio excel, en la ventana blanca que hay a la izquierda de la barra de fórmulas, bajo los menus... si seleccionas la imagen te muestra ahí el nombre, pudiéndose modificar...

No te olvides de dar Intro o Enter, si no, no funciona.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • Hola de nuevo por aquí. Sigo con el fichero de consumos y con problemas. Ayer me ayudasteis y mucho a determinar los conductores y sus consumos. Ahora lo que necesito es lo siguiente. Tengo una tabla donde los empleados imputan de manera porcentual a distintas ordenes de trabajo. Está en la hoja Reparto. Veréis que por ejemplo el primer empleado reparte un 50 a una OT y otro 50 a otra. El segundo empleado imputa un 40 a una OT y otro 60 a otra y el tercero imputa un 25 a una OT, un 65 a otra y un 10 a otra. Esto desglosarlo es un autentico lío, y cada mes me emplea muchísimo tiempo . Lo que quisiera es que en la hoja que le he llamado desglose me creara una tabla o en la que he hecho y me calculara el consumo de combustible de cada empleado teniendo en cuenta la OT y su porcentaje. He creado la tabla y he puesto los importes que deberían salir. Los importes de cada consumo están en la hoja Consumos en la columna AK (IMP_TOTAL). Por ejemplo en la hoja Desglose el primer empleado sería GARCIA FERNANDEZ, VICENTE y a la OT 11000001 tendría un importe de 28,70 euros ya que en la hoja Reparto decimos que imputa un 50 a esa OT y el consumo total de ese empleado de la hoja Consumo es de 57,40 euros. Y así con el resto. He puesto una tabla para que sea dinámico y si hay más consumos o empleados se vaya actualizando dinámicamente, o eso creo. Lo que no veo claro es que busque y autorrellene con formulas la tabla sin hacerlo con macros. Al menos para mi se me hace muy difícil ver la posibilidad. No tengo claro si he conseguido explicarme, cualquier duda os respondo. Y como siempre muy agradecido por vuestro tiempo y compartir tan hábiles conocimientos, y además de manera desinteresada y amable. Gracias.   Ejemplo consumos combustible sq.xlsx
    • Hola, yo también tengo el mismo problema, ¿podrías decir cómo lo solucionaste, por favor? :c
    • Hola Oscar, funciona perfectamente. He probado igual que con Silvia e independientemente del orden o incluso mezclando fechas funciona bien.   Gracias.  
    • Hola Silvia,  he cambiado fechas y funciona. Incluso he modificado el orden de los consumos mezclando fecha y también funciona. Gracias.
    • Hola Oscar si, tienes razón, sin embargo, no aseguro, pero me parece que los datos siempre estarán ordenados de acuerdo al cambio de conductor, el que sale y entrega la posta al que inicia.. bueno, me parece.. pero.....   de todas formas tu solución es excelente..  saludos.. Silvia
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy