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
Por
jojanu54, · publicado
Hola a todos
Hola soy nuevo en este foro, vengo a aprender con vuestra ayuda
Un saludo,