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