¿Como insertar una imagen al pulsar un checkbox?

Hola,
 me ha surgido una duda que os querría plantear:
Estoy creando una hoja de calculo y quiero que al pulsar un CheckBox, una imagen me aparezca en una hoja determinada y en un rango determinado. Lo que he conseguido es direccionarla a un rango concreto pero de la propia hoja. El codigo que he utilizado para direccionarla a la misma hoja es el siguiente:
Private Sub ckCasa10_Click() 
 Dim De_donde As String, Foto As Object, _
      Arriba As Double, Izquierda As Double, Ancho As Double, Alto As Double
  Application.ScreenUpdating = False
  On Error Resume Next
  Me.Shapes("imgcasa").Delete 
  De_donde = "c:\esquemas\casa.jpg"
  If ckCasa10.Value = True Then 
    Set Foto = Me.Pictures.Insert(De_donde)
    With Activesheet.Range("c60:q65") 
      Arriba = .Top
      Izquierda = .Left
      Ancho = .Offset(0, .Columns.Count).Left - .Left
      Alto = .Offset(.Rows.Count, 0).Top - .Top
    End With
    With Foto
      .Name = "imgcasa"
      .Top = Arriba
      .Left = Izquierda
      .Width = Ancho
      .Height = Alto
    End With
    Set Foto = Nothing
  End If
End Sub
El Problema surge cuando quiero mandarla a el mismo rango pero de otra hoja. El codigo que utilizo es:
Private Sub ckCasa10_Click() 
 Dim De_donde As String, Foto As Object, _
      Arriba As Double, Izquierda As Double, Ancho As Double, Alto As Double
  Application.ScreenUpdating = False
  On Error Resume Next
  Me.Shapes("imgcasa").Delete 
  De_donde = "c:\esquemas\casa.jpg"
  If ckCasa10.Value = True Then 
    Set Foto = Me.Pictures.Insert(De_donde)
    With WorkSheets("Hoja2").Range("c60:q65") 
      Arriba = .Top
      Izquierda = .Left
      Ancho = .Offset(0, .Columns.Count).Left - .Left
      Alto = .Offset(.Rows.Count, 0).Top - .Top
    End With
    With Foto
      .Name = "imgcasa"
      .Top = Arriba
      .Left = Izquierda
      .Width = Ancho
      .Height = Alto
    End With
    Set Foto = Nothing
  End If
End Sub
Espero que haya sido claro,
Muchas Gracias!!
Kilian

1 Respuesta

Respuesta
1
'Corregir la línea anterior también
Private Sub ckCasa10_Click() 
 Dim De_donde As String, Foto As Object, _
      Arriba As Double, Izquierda As Double, Ancho As Double, Alto As Double
  Application.ScreenUpdating = False
  On Error Resume Next
  Me.Shapes("imgcasa").Delete 
  De_donde = "c:\esquemas\casa.jpg"
  If ckCasa10.Value = True Then 
    Set Foto = WorkSheets("Hoja2").Pictures.Insert(De_donde)
    With WorkSheets("Hoja2").Range("c60:q65") 
      Arriba = .Top
      Izquierda = .Left
      Ancho = .Offset(0, .Columns.Count).Left - .Left
      Alto = .Offset(.Rows.Count, 0).Top - .Top
    End With
    With Foto
      .Name = "imgcasa"
      .Top = Arriba
      .Left = Izquierda
      .Width = Ancho
      .Height = Alto
    End With
    Set Foto = Nothing
  End If
End Sub
Hola,
Esto es exactamente lo que estaba buscando...El problema es que ahora al desactivar el checkbox, la imagen sigue estando...¿Habria alguna manera de eliminar la imagen al desactivar el checkbox, como sucedía antes?
Muchas gracias
'Usa esta de prueba:
Private Sub ckCasa10_Click()
 Dim De_donde As String, Foto As Object, _
      Arriba As Double, Izquierda As Double, Ancho As Double, Alto As Double
  Application.ScreenUpdating = False
  On Error Resume Next
  Worksheets("Hoja2").Shapes("imgcasa").Delete
  If Not ckCasa10 Then GoTo Final
  De_donde = "c:\esquemas\casa.jpg" '"c:\user.jpg"
  If ckCasa10 Then
  MsgBox "Activo"
    Set Foto = Worksheets("Hoja2").Pictures.Insert(De_donde)
    With Worksheets("Hoja2").Range("c10:q15")
      Arriba = .Top
      Izquierda = .Left
      Ancho = .Offset(0, .Columns.Count).Left - .Left
      Alto = .Offset(.Rows.Count, 0).Top - .Top
    End With
    With Foto
      .Name = "imgcasa"
      .Top = Arriba
      .Left = Izquierda
      .Width = Ancho
      .Height = Alto
    End With
    Set Foto = Nothing
  End If
Exit Sub
Final:
MsgBox "No activo"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

No ejecutar macro al seleccionar una celda vacía

Espero te encuentres genial. Tengo la siguiente macro que inserta una imagen cuando selecciono cualquier celda dentro del rango "A1:A30": Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Not Intersect(Target,...
1 respuesta

Macro para mostrar imagen dependiendo del valor de celda Excel 2010 (automático)

Les ruego me por favor me ayuden con la siguiente macro. El problema consiste en que tengo una celda B22 con formato condicional por lo cual varía dependiendo del valor de otra celda, la macro consiste en asociar una imagen que varía acorde con el...
1 respuesta

Insertar imágenes con vb

A ver si consigo explicarme. Excel 2003. He encontrado esto: Private Sub Worksheet_Change(ByVal Target As Range) 'Si ha errores, que continúe On Error Resume Next 'Si cambiamos el dato de la celda C4, 'mostramos la foto de ese vehículo If...
1 respuesta

Fotos en excel con macro, pesa mucho archivo final

Lo que busco es hacer un formulario que me ubique por fotos en una hoja, las imágenes están en una carpeta definida, tengo el siguiente código (lineas abajo), pero, el resultado es un archivo demasiado grande, tanto que cuelga mi maquina, y estoy...
1 respuesta

Macro para comprimir imagen

Quisiera saber si me pueden apoyar. Tengo una Macro que me inserta una imagen en Excel, pero al ejecutarla con otra que me envía un mail con dicha imagen en el cuerpo del mensaje hace que pese alrededor de 2 a 3 MB, lo que es bastante pesado para el...
1 respuesta

¿Cómo puedo hacer para llamar una imagen de forma automática usando una macro en una celda?

Tengo el siguiente código de macro que me llama la imagen, pero mi problema esta es que tengo que hacer enter para que me llame la imagen, yo lo que quiero es que a medida que cambio el valor en la celda a1, también me cambie la foto y luego imprimir...
1 respuesta

Macro para eliminar imagen (con nombre referido a dos celdas)

Después de hacer varias búsquedas en internet encontré esta macro que me funciona perfectamente para insertar una imagen en una celda, el nombre de esta imagen se genera a partir del valor de dos celdas: Sub Insertarimagen() tope = Range("C10").Top...
1 respuesta

Añadir controles y evento en tiempo de ejecución excel

Tengo un formulario en excel que en su evento initialize crea tantos labels como trabajadores encuentra en la hoja "personal" y sus correspondientes textbox para introducir la cantidad de horas trabajadas y dos commandbutton, uno para validar los...
3 respuestas