Hacer que una celda tenga valor de una imágen

caredufin escribió el 20/02/2013 12:32 :
Mostrar la cita

¡ Hola !

Tengo un directorio con imágenes y quisiera que excel las leyera y me
las pusiera cada una en una celda con un ancho y largo definido.
Todo esto con el propósito de hacer unas credenciales.

Gracias

caredufin, tengo esta macro que creo te servirá. el directorio donde están las fotos deberá tener el nobre que tu le pongas

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells = Range("K2") Then
foto = Range("E8").Value
Application.ScreenUpdating = False
foto = foto & ".jpg"
ruta = ActiveWorkbook.Path & "\fotos\" & foto
Me.Shapes("foto_del").Delete
Set fotografia = Me.Pictures.Insert(ruta)
With Range("a1:a10")
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

espero te sirva

saludos