Catálogo interactivo con pase de fotos en Excel

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2019Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010

En nuestra hoja de cálculo podemos crear un catálogo interactivo con pase de fotos en Excel.

Catálogo interactivo con pase de fotos en Excel

Al seleccionar la celda deseada se mostrará la imagen relacionada.

  • HOJA DE PLANTILLA
  1. Donde guardaremos el libro, creamos una carpeta con el nombre de imagen e incluimos las imágenes deseadas con el nombre que figura en el rango A2:A6 (Juan.jpg, Lola.jpg, etc.).

  2. Ir a: Hoja1 / Cinta de opciones / Pestaña: Desarrollador / Grupo: Controles / Insertar / Controles ActiveX: Imagen.

    Carpeta imagen con las fotos con el nombre relacionado
  3. Clic sobre la hoja Excel y trazar un cuadrado.

    Hoja Excel con el control imagen insertado
  4. Ir a: Cinta de opciones / Pestaña: Desarrollador / Grupo: Controles / Modo diseño. Para desactivar el modo diseño.

 
  • CREAR MACRO
  1. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  2. Ir al panel de Proyecto / Doble clic sobre Hoja1 (Hoja1). Mostrará el área de código donde escribimos la macro.

  3. Escribir el código de la macro:

    Private Sub Worksheet_SelectionChange (ByVal Target As Range)

    On Error Resume Next

    If Not Intersect(Target, Range("A2:A6")) Is Nothing Then

    Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\imagen\" & Target & ".jpg")

    End If

    End Sub

  4. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros en la misma carpeta que la carpeta imagen.

Nivel de dificultad: Experto VBA-Macros Excel Experto VBA - Macros

2 comentarios en “Catálogo interactivo con pase de fotos en Excel

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.