Forums Últimos mensajes - Powered by IBM
 

Hacer que una celda tenga valor de una imágen

20/02/2013 - 12:32 por caredufin | Informe spam
¡ 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
 

Leer las respuestas

#1 aldo
22/02/2013 - 16:45 | Informe spam
caredufin escribió el 20/02/2013 12:32 :
¡ 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

Preguntas similares