10/04/2006, 04:29
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 170
Antigüedad: 18 años, 5 meses Puntos: 1 | |
| 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.
__________________
El sabio no dice nunca todo lo que piensa,
pero siempre piensa todo lo que dice.
Aristóteles :pensando: |