Ver originales (Francés)

Redimensionar una imagen en Excel (VBA) usando celdas

Resuelto
STVNA Mensajes publicados 32 Estado Miembro -  
STVNA Mensajes publicados 32 Estado Miembro -
¡Hola a todos!

En 2015 publiqué esta pregunta: https://forums.commentcamarche.net/forum/affich-31772094-redimensionner-une-image-automatiquement-avec-excel-vba

Ahora nos gustaría redimensionar una imagen en Excel de esta forma: cuando se introducen un ancho y una alto en celdas, una imagen se redimensiona sola en función de esos valores y, por lo tanto, usando VBA.

¡Gracias de antemano!

1 respuesta

  1.
    danielc0 Mensajes publicados 2196 Fecha de registro   Estado Miembro Última intervención   286
     
    Bonjour,

    Suponiendo que solo haya una imagen en la hoja, pon esta macro en el módulo de la hoja: 

    Private Sub Worksheet_Change(ByVal Target As Range) If [A1] <> "" And [A2] <> "" And IsNumeric([A1]) And IsNumeric([A2]) Then If Target.Address = ""$a$1"" Or Target.Address = ""$a$2"" Then With ActiveSheet.Pictures(1) .Height = [A1] .Width = [A2] End With End If End If End Sub


    A1=altura
    A2= anchura
    Con los valores en puntos.

    Atentamente.
    0
    1. STVNA Mensajes publicados 32 Estado Miembro
       
      Hola,
      ¡Gracias por su respuesta!
      Pero no funciona. ¿Dónde hay que colocar la macro exactamente?
      0
    2. danielc0 Mensajes publicados 2196 Fecha de registro   Estado Miembro Última intervención   286 > STVNA Mensajes publicados 32 Estado Miembro
       
      No inviertas las cosas. Si no sabes dónde colocar la macro, no puedes decir que no funciona.
      Haz clic derecho en la pestaña de la hoja que contiene la imagen y haz clic en "Ver código". Pega la macro en la parte derecha de la ventana del VBE.

      Daniel
      0
    3. STVNA Mensajes publicados 32 Estado Miembro
       
      Es exactamente lo que hemos hecho. ¿Debemos renombrar la pestaña o la imagen?
      ¿Y qué quiere decir poner los valores en puntos?
      Gracias de antemano.
      0
    4. danielc0 Mensajes publicados 2196 Fecha de registro   Estado Miembro Última intervención   286 > STVNA Mensajes publicados 32 Estado Miembro
       
      No es necesario renombrar la imagen. Sin embargo, debe haber solo una en la hoja.
      El punto equivale a 1/72 de pulgada y la pulgada equivale a 2.54 cm. El libro debe guardarse en formato .xlsm y las macros deben estar activadas. Si todavía tienes un problema, sube tu libro a mon-partage.fr y publica el enlace obtenido.

      Daniel
      0
    5. STVNA Mensajes publicados 32 Estado Miembro
       
      Gracias. Aquí está el enlace al archivo: https://mon-partage.fr/f/AgHYchs9/ . ¿Podrías echarle un vistazo? Muchas gracias nuevamente.
      0