Esto lo podemos hacer con una macro relativamente sencilla:
Sub Imagen()
estado = ActiveSheet.Shapes(1). Visible
ActiveSheet.Shapes(1).Visible = Not estado
End Sub
Esta macro toma nota del valor de la propiedad Visible de la imagen. Este valor puede ser True (verdadero) si está visible o False (falso) si no lo está.
Una vez conocido el valor de dicha propiedad, la macro le asigna el valor contrario. Es decir, True si era False, y viceversa.
El operador Not, aplicado a una variable lógica, devuelve el valor contrario. Se podría llegar a considerar algo así como cambiarle el signo a una variable numérica.
Esto no es exactamente lo mismo que marcar una casilla de verificación, pero, si asignamos la macro a un botón, podemos obtener un resultado equivalente.
El argumento de Shapes es el número de orden en el que la imagen fue insertada en el documento, o su nombre, escrito entre comillas. Este nombre, es el mismo que aparecerá en el cuadro de nombres cuando tengamos seleccionada la imagen.
Esta macro muestra la imagen que se inserta en la hoja, o la oculta si está visible. El argumento de Shapes es el número de orden de la imagen en la hoja.
Si seleccionamos la imagen, aparece su nombre en el Cuadro de nombres. Este nombre, escrito entre comillas, puede ser el argumento de Shapes en la macro.
