Catalogo de imágenes en excel desde directorio

He estado leyendo varios tutoriales, pero no acabo de verlo claro, ya que no dispongo de conocimientos en VBA.

Parto de lo siguiente:

Listado de referencias + path de ubicación en PC.

Catalogo de imágenes en directorio.

Necesito lo siguiente:

Que en una hoja denominada "catalogo", pueda elegir la referencia de un producto mediante una lista y me muestre su imagen.
Y que eso se muestre "n" veces...

Es decir, quiero poder presentar varios productos en la misma hoja.

Respuesta

Haz una lista desplegable en "E2", con las imágenes que quieras en la carpeta de fotos

Pega este código en la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Unprotect Password:="1"
On Error Resume Next
' Lista desplegable
If Target.Cells = Range("E2") Then
Foto = Range("E2").Value
Application.ScreenUpdating = False
Foto = Foto & ".jpg"
' Ruta de la carpeta de las fotos
ruta = ActiveWorkbook.Path & "\fotos\" & Foto
Me.Shapes("foto_del").Delete
Set fotografia = Me.Pictures.Insert(ruta)
' tamaño de la foto
With Range("A3:D33")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With fotografia
.Name = "foto_del"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set fotografia = Nothing
Application.ScreenUpdating = True
End If
End Sub

Y en el directorio de la hoja pon una carpeta, fotos, y metes las fotos.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas