Bild via Email senden,
05.01.2017 06: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
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
Anzeige