jojanu54

Puedo crear, duplicar los existentes, pero no logro eliminar los que ya he personalizado ni modificarlos, me sale el mensaje para eliminar le doy aceptar pero no sucede nada siempre se quedan ahí, alguien sabe como solucionar esto. Como referencia solo me sucede en el archivo actual en el que estoy trabajando no me pasa en los otros archivos.

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