gelt32

edwinhenao respondió: Para la imágenes rectangulares tendrías que hacer un rango rectangular o transformarlas antes de insertarla en Excel... Para darle nombre a la imagen es al revés... es decir hay que cambiar: ... Foto1 = Selection.Name ................ Por...

caranbis respondió: Pruebe quitándole ese par de comillas y dejándolo así: Private Sub Workbook_Open() Ruta = ThisWorkbook.Path Ruta = Ruta & "\Ambar1.jpg" ActiveSheet.Shapes.AddPicture Ruta, True, True, 100, 100, 70, 70 End Sub 'Sin embargo a mí me funciona de las dos...