Macro para mostrar/ocultar imagen

[LanbreGroteo]

Intenté buscar una macro que me ayudase a mostrar/ocultar una imagen al hacer click en un botón pero no consigo como.

En primera, me gustaría que la imagen estuviera oculta y que al pulsar el botón ésta se visualice al usuario y se pueda volver a ocultar al pulsar ese mismo botón. Les pongo el código que intenté

Código vb:

Sub Macro1()
    With ActiveSheet.Shapes("Rounded Rectangle 4").TextFrame2.TextRange.Characters
        If .Text = "Hide" Then
            .Text = "Show"
            ActiveSheet.Shapes("Picture 1").Visible = False
        Else
            .Text = "Hide"
            With ActiveSheet.Shapes("Rounded Rectangle 4")
            ActiveSheet.Shapes("Picture 1").Left = .Left + .Width
            ActiveSheet.Shapes("Picture 1").Top = .Top + .Height
            ActiveSheet.Shapes("Picture 1").Visible = True
            End With
        End If
    End With
End Sub
 

Aquí, la imagen debe estar en la misma Hoja y la esconde al pulsar el botón... Me gustaría que fuera al revés, que la imagen no se visualizara en primera instancia hasta hacer clic en el botón y ¿será que se pueda llamar a la imagen desde otra hoja?

¡De antemano, muchas gracias!

[Triby]

Hay dos formas de ocultar la imagen:

1. En la ventana de propiedades cambia el valor de visibilidad de True a False
2. Cambiar la visibilidad cuando se activa la hoja

Sí, se puede hacer referencia a la imagen desde otra hoja:

Código vb:

NombreDeHoja.Shapes("Nombre de imagen").Visible = False
 

En teoría, tu código debería mostrar/ocultar la imagen alternadamente.