¿Cómo puedo insertar imágenes según valores en una columna adyacente?
Muy buena información he leído aquí.
Quiero preguntarles de que manera es posible insertar fotos en la columna F de acuerdo al nombre de la foto que se encuentra en la columna DE y que repita el proceso en cada fila hasta que no hayan más datos.
Las fotos las tengo todas en la misma ruta, y hasta ahora solo tengo este código
Sub insertafoto()
Carpeta = "C:\Users\JuanC\Desktop\picsformacro\"
imagen = Range("d2")
Range("f2").Select
ActiveSheet.Pictures.Insert(Carpeta & imagen).Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 65#
Selection.ShapeRange.Width = 65#
Selection.ShapeRange.Rotation = 0#
End Sub
Que me funciona solo con la primera fila, pero no he logrado hacer que siga con las demás.
1 Respuesta
H o l a : Te anexo la macro actualizada, al principio la macro borra todas las imágenes para insertar las nuevas.
Sub insertafoto()
'Act.Por.Dante Amor
Carpeta = "C:\Users\JuanC\Desktop\picsformacro\"
On Error Resume Next
ActiveSheet.DrawingObjects.Delete
For i = 2 To Range("D" & Rows.Count).End(xlUp).Row
With ActiveSheet.Pictures.Insert(Carpeta & Range("D" & i))
.Placement = xlMoveAndSize
.PrintObject = True
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 65#
.ShapeRange.Width = 65#
.ShapeRange.Rotation = 0#
.Top = Range("F" & i).Top + 1
.Left = Range("F" & i).Left + 1
End With
Next
MsgBox "Fin"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
