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
 

 

Por qué creas un nuevo tema bajo otro usuario? 

Ya hay un tema abierto con tu misma duda, así que por favor elimina alguno de los dos.

Además, te comento que no somos magos, tienes que subir un archivo.