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

.....
If Not Dir(RutaImagen) = "" Then
	.Fill.UserPicture RutaImagen
	.Visible = msoTrue
End If
.....

hace 2 horas, Antoni dijo:

.....
If Not Dir(RutaImagen) = "" Then
	.Fill.UserPicture RutaImagen
	.Visible = msoTrue
End If
.....

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