Excel Formaat afbeelding kleiner in word of outlook na kopieren

[Georgyboy]

Hallo iedereen,

Laatst ben ik zeer goed geholpen geweest van Rudi (Warm bakkertje),
bedankt Rudi!

De foto´s worden in de cel geplaatst en aangapast met onderstaade macro.
Bij kopieren naar word of outlook zij de foto´s kleiner dan de agmeting van de tabel,
waarvan daardoor de onderste foto´s niet meer zichtbaar zijn!

Wat is de reden?
Kan men daar iets aan verhelpen?

Sub Insert_Pict1()
    Dim lRow As Long, lLoop As Long
    Dim sShape As Shape, myarray As Variant
        myarray = Range("F2", Range("F65536").End(xlUp)).Value
        myarray = Application.WorksheetFunction.Transpose(myarray)
        ActiveSheet.Protect False, False, False, False, False
GetPict:
    If Not IsArray(myarray) Then
        MsgBox "Slechts 1 bestand geselecteerd."
        Exit Sub
    End If
    lRow = 2
    For lLoop = LBound(myarray) To UBound(myarray)
    Set sShape = ActiveSheet.Shapes.AddPicture(myarray(lLoop), msoFalse, msoCTrue, _
            Cells(lRow, 7).Left, Cells(lRow, 7).Top, Cells(lRow, 7).Width, Cells(lRow, 7).Height)
        With sShape
            .Placement = xlMoveAndSize
        End With
    lRow = lRow + 1
Next lLoop
End Sub

Avast bedankt,
Georgyboy