Saltar al contenido

Buscar foto segun direccion de celda

publicado

Estimados.

Adjunto libro que realiza busquedas de fotos dentro de una carpeta, el unico requisito para que funcione es que el libro se encuentre dentro de la carpeta que contiene las fotos, el nombre de la foto se debe colocar en la columna B, para que muestre la foto te debes desplazar por la columna C.

Hasta aqui todo va bien, pero tengo varias carpetas con fotos, entonces necesito que la macro busque la foto segun la direccion de cada carpeta, seria posible que en la columna "G" coloque la direccion de la carpeta y realice la busqueda de las fotos, espero que algun experto me apoye a encontrar alguna solucion.

Saludos cordiales.

EJEMPLO.zip

Featured Replies

publicado

Hola:

Sustituya el código VBA completo de la hoja BD por:



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

If ActiveCell.Row > 17 Then
Me.Shapes("Imagen artículo").Delete
Me.Pictures.Insert(Range("G" & Target.Row) & "\" & _
Range("B" & Target.Row) & ".jpg").Select
With Selection
.Name = "Imagen artículo"
.Top = Range("E2:F9").Top
.Left = Range("E2:F9").Left
.Width = Range("E2:F9").Width
.Height = Range("E2:F9").Height
End With
ActiveCell.Select
End If


End Sub


[/CODE]

Saludos

publicado
  • Autor

Muchas gracias Gengis Khan, haz resuelto mi problema.

TEMA SOLUCIONADO

Saludos.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.