Plaatje uit Excel scherp in een e-mail

[Peter B]

Met dank aan het www heb ik de volgende code gevonden die ik aanroep om een e-mail samen te stellen:

Sub createJpg(Namesheet As String, nameRange As String, nameFile As String)
    ThisWorkbook.Activate
    Worksheets(Namesheet).Activate
'    Set Plage = ThisWorkbook.Worksheets(Namesheet).Range(nameRange)
    Set Plage = ActiveSheet.Pictures(1)
    Plage.CopyPicture
    With ThisWorkbook.Worksheets(Namesheet).ChartObjects.Add(Plage.Left, Plage.Top, Plage.Width, Plage.Height)
        .Activate
        .Chart.Paste
        .Chart.Export Environ$("temp") & "\" & nameFile & ".jpg", "JPG"
    End With
    Worksheets(Namesheet).ChartObjects(Worksheets(Namesheet).ChartObjects.Count).Delete
    Set Plage = Nothing
End Sub

Wat mij nu opvalt is dat het plaatje in de e-mail niet scherp is. Als ik hetzelfde plaatje kopieer mbv de rechtermuisknop en in de e-mail plak is deze wel scherp. Ik wijzig niets aan de grootte van het plaatje.

Mijn vraag is wat de verklaring hiervoor is en, interessanter, wat de oplossing is om een scherp plaatje in de e-mail te krijgen.

 

[snb]

Deze macro heeft niets met email te maken.

 

[Peter B]

Dat klopt. Deze functie wordt aangeroepen bij het samenstellen van de e-mail. M.i. zou de verbetering in dit stukje code moeten zitten. Dit ook omdat het tijdelijk gemaakte plaatje al niet scherp is.

Dus je hebt gelijk. Eigenlijk kan ik de vraag breder trekken ... Hoe krijg ik een plaatje wat in Excel staat zodanig opgeslagen dat het net zo scherp is als in Excel of net zo scherp is als dat ik het plaatje kopieer en plak in (bv.) Paint.