botón para que aparezcan y desaparezcan imagenes

niconico · #1 (**permalink**) 10/04/2006, 02:40

Tengo este código asignado a un botón, su función es con un click aparezca la imagen y con el segundo click desaparezca, pero el problema es que me va un poco lento, es decir que si hago dos clicks rápido sólo obedece a el último click.
El código

Código:

'el primer click aparece el segundo desaparece
Sub imagen74()
Dim activo As Boolean
activo = ActiveSheet.Shapes("Gráfico 74").Visible
Select Case activo
Case True
ActiveSheet.Shapes("Gráfico 74").Visible = False
Case False
ActiveSheet.Shapes("Gráfico 74").Visible = True
End Select
End Sub

muchas gracias

potypoty · #2 (**permalink**) 10/04/2006, 04:29

el código que te propongo es similar, pero igual puede solucionarte lo del click rápido o la rapidez.

Sub imagen74()
if ActiveSheet.Shapes("Gráfico 74").Visible then
ActiveSheet.Shapes("Gráfico 74").Visible = False
else
ActiveSheet.Shapes("Gráfico 74").Visible = True
end if
End Sub

De esta manera como sólo tienes 2 opciones me parece mejor hacer un If...Else...Then.

ya me dirás si te ayuda en algo.

niconico · #3 (**permalink**) 10/04/2006, 04:40

la velocidad es parecida, muchas gracias

potypoty · #4 (**permalink**) 10/04/2006, 05:18

No sé, yo he hecho la prueba y la verdad es que va bastante rápido. No consigo hacerlo más rápido que él. Igual si tienes algo de código extra por ahí sea lo que te ralentice el ejecutar esta función, aunque parezca que es el ocultar o mostrar lo que va lento.