| Respuesta: mandar una hoja excel con logos por mail
Mira segun yo el problema son estas dos líneas en las que borra cualquier imagen q este en la hoja:
For Each myshape In Nwb.Sheets(1).Shapes
myshape.Delete
Next
prueba comentandolas a ver si así te las adjunta.
así:
'For Each myshape In Nwb.Sheets(1).Shapes
' myshape.Delete
' Next
con la comila simple
Última edición por Monimo; 02/06/2010 a las 07:16 |