Hallo, ich habe es Dank Codebeispielen hinbekommen, dass ich aus einer Excel Datei einen Bereich kopiere und diesen in Outlook als Bild einfüge. Nun ist aber das eingefügte Bild zu groß und ich würde es gern verkleinern. Hat jemand Erfahrung damit? Oder müsste ich den "Snapshot" erst mal als Bild speichern und dann das Bild in Outlook einfügen?

Anbei der Code soweit:


Sub Versand55()
' Sendet Mail mit integriertem Bereich als Bereich mit Signatur
Dim WSh As Worksheet
Dim sMailtext As String
Dim sBer As String
Dim shp As shape
Dim wordDoc


Set WSh = ThisWorkbook.Sheets("Diagramm 2") '("Auswertung") ' Blatt mit Maildaten
sBer = "r15:al67" '"AM2:aw58" '& WSh.Cells(Rows.Count, "AM").End(xlUp).Row ' Kopierbereich

WSh.Range(sBer).CopyPicture xlPrinter 'xlPrinter ' Bereich kopieren


With CreateObject("Outlook.Application").CreateItem(0)
.BodyFormat = 2 ' 2=HTML-Format, 3=Richtext
.Subject = "Monatszahlen" & " " & ActiveSheet.Range("S5") & " " & ActiveSheet.Range("D5") '"Protokoll vom " & WSh.Range("G7") ' Betreff
.To = ActiveSheet.Range("M3") '"SMA" ' Empfänger
sMailtext = "Anbei die aktuellen Monatszahlen! ¶ " ' Mailbodytext ¶Ihre Daten:¶¶"
sMailtext = Replace(sMailtext, "¶", vbLf) ' Umbrüche einfügen
.GetInspector ' Signatur holen
.htmlbody = Replace(sMailtext, vbLf, "
") & .htmlbody
.Display

With .GetInspector.WordEditor.Application.Selection
.Start = Len(sMailtext): .Paste ' Grafik in Mail einfügen
End With



End With
End Sub


Dan ke schon mal vorab und Grüße aus Hildesheim