Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/08/2015, 09:08
Avatar de LanbreGroteo
LanbreGroteo
 
Fecha de Ingreso: agosto-2009
Ubicación: $Mx->['Veracruz']
Mensajes: 69
Antigüedad: 15 años, 2 meses
Puntos: 1
Pregunta Macro para mostrar/ocultar imagen

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:
Ver original
  1. Sub Macro1()
  2.     With ActiveSheet.Shapes("Rounded Rectangle 4").TextFrame2.TextRange.Characters
  3.         If .Text = "Hide" Then
  4.             .Text = "Show"
  5.             ActiveSheet.Shapes("Picture 1").Visible = False
  6.         Else
  7.             .Text = "Hide"
  8.             With ActiveSheet.Shapes("Rounded Rectangle 4")
  9.             ActiveSheet.Shapes("Picture 1").Left = .Left + .Width
  10.             ActiveSheet.Shapes("Picture 1").Top = .Top + .Height
  11.             ActiveSheet.Shapes("Picture 1").Visible = True
  12.             End With
  13.         End If
  14.     End With
  15. 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!
__________________
Et credo in Serpentem, mysterium mysteriorum. In nomen eius Baphomet