Insertar foto para catalogo de productos y pueda ser visualizado al enviarlo por mail

ialarcon · el 3 de mayo

El código utilizado inserta correctamente las fotos de cada uno de los productos, linea por linea sin problemas, pero cuando lo envió por mail, no puede ser visualizado por el cliente, porque toma como una especia de link y no como insertado en la planilla, que si lo hace si se lo realiza en forma manual, o en la version 2007, yo tengo excel 2010.

He probado varias opciones, inclusive las opciones de LinkToFile = False y SaveWithDocument = True y tampoco funcionaron.

Agradecceria vuestra ayuda por favor.

Desde ya muchas gracias, ahi va el codigo completo

*********************-----------------************************

Dim imagen1
Dim imagen2
Dim imagen3
Dim oja1
Dim oja2
Dim ubicacion1
Dim ancho
Dim alto

oja1 = "CATALOGO"
oja2 = "VARIABLES"
Sheets(oja2).Select
ubicacion1 = Range("C2").Value
Ancho_Foto = Range("C3").Value
Alto_Foto = Range("C4").Value
Ancho_Fila = Range("C5").Value
Alto_Fila = Range("C6").Value

Sheets(oja1).Select
Range("A4").Select
imagen1 = ActiveCell.Value

'
Range("A4").Select

While ActiveCell.Value <> ""
valor = ActiveCell.Value & ".jpg"
ActiveCell.Offset(0, 7).Select
Set fso = CreateObject("scripting.filesystemobject")
If fso.fileexists(ubicacion1 & valor) Then
On Error Resume Next
ActiveSheet.Pictures.Insert(ubicacion1 & valor).Select
LinkToFile = False
SaveWithDocument = True

'ajusta el rango primero
ActiveCell.RowHeight = Alto_Fila
ActiveCell.ColumnWidth = Ancho_Fila
With Selection
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Alto_Foto 'Alto de la imagen
.ShapeRange.Width = Ancho_Foto 'Ancho de la imagen
End With
ActiveCell.Offset(0, -7).Select
cuenta = cuenta + 1
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(0, -7).Select
cuenta = cuenta + 1
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub