Bild via Email senden,
05.01.2017 05:52:01
Robert
ich habe folgendes Makro im Einsatz:
Private Sub CommandButton2_Click()
Range("A1:AR78").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = "test@test.de"
.Item.Subject = "Test"
.Item.Send
End With
End Sub
Funktioniert im Grunde wunderbar. Allerdings würde ich gerne die Rang A1:AR78 als Bild kopieren und dann einfügen.Jetzt fehlt mir aber das nötige Fachwissen wie ich :
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
in das Makro oben einfüge.
Könnte mir jemand dabei helfen?
Danke schonmal und Gruß
Robert