nachfolgendes Makro habe ich aus Rainer's Office Welt (schön das es so was gibt ;-) ]und dann zurechtgebastelt.
Vorweg es funktioniert!
Sub Send_Chart_from_Excel()
'Es geht nur wenn ds Chart aktiviert und SELEKTIERT ist
'Ohne Select geht es nicht :-))
'Das anzeigen der Envelope Commandbar ist unabdingbar
Dim objPict As Object
Dim MyChart As Chart
Sheets("Anschreiben").Range("A1:I48").CopyPicture Appearance:=xlScreen, Format:=xlPicture
'Ohne die Zwischenablage geht jedoch nichts?
ActiveSheet.Paste
Set objPict = Selection
With objPict
.Copy
Set MyChart = ActiveSheet.ChartObjects.Add(1, 1, .Width, .Height).Chart
End With
With MyChart
.Paste
objPict.Delete
End With
ActiveWorkbook.EnvelopeVisible = True
'Nun werden die Adressen vergeben
With ActiveSheet.MailEnvelope
'.Introduction = "Das ist der Einleitungstext." & vbCrLf & "mit einer zweiten Zeile"
.Item.To = "Sonnenpeter@gmx.de"
.Item.Subject = "Anschreiben"
.Item.Send 'was ist zu tun wenn ich nicht direkt senden will, soll eine Schleife mit _
max 20 Anschreiben an verschiedene Adressen werden. Hierzu soll die Mail zunächst als Entwurf abgelegt werden, da noch eine Datei angehängt werden soll.
End With
End Sub
Das mit dem Datei automatisch anhängen habe ich zunächst mal beiseite gelassen, muss ich noch per Hand mit Copy Paste machen.
Gruß Sonnenpeter