Sub GrafikDatei()
ActiveWorkbook.ActiveChart.Export FileName:=ThisWorkbook.Path_
& "\" & ActiveChart.Name & ".jpeg", Filtername:="jpeg"
End Sub
... aber: wenn ich die Druckvorschaufunktion wähle, könnte ich auch eine Kopf- und Fußzeile mit definieren und die Buttons der Steuerung sind dann auch nicht in der JPG-Datei. Nun zur Frage:
kann man die folgende Zeile abändern damit das Programm sofort den Ausdruck in eine JPG-Datei umleitet?
Sub GrafikDruck()
ActiveWorkbook.ActiveChart.PrintPreview
End Sub
Viele Dank
Stefan