jojanu54

Maestro muchas gracias, me funciono a la perfección, eres un genio

Me explico el codigo funciona muy bien, me busca las formas y las rellena con una foto de una carpeta, el problema viene cuando se agrega un nuevo registro de persona nueva y no haya foto aun, me da un error y no ejecuta la macro me podrian ayudar a corregir el codigo por favor para que cuando no encuentre una foto de una persona nueva inserte una foto que diga no hay foto. este es mi codigo actual Set Autoforma = Hoja28.Shapes("_cFila" & Indice) 'Circulo de las fotos With Autoforma .Left = Hoja28.Cells(Indice + 11, DiaMin + 12 - 1).Left 'Comienza en la columna 12 -1 para que comience desde el borde NombreImagen = Mid(Empleado.Value, 1, InStr(1, Empleado.Value, " ") - 1) & ".png" RutaImagen = ActiveWorkbook.Path & Application.PathSeparator & "Fotos" & Application.PathSeparator & NombreImagen .Fill.UserPicture RutaImagen .Visible = msoTrue End With