grafik als jpg in die selbe mappe kopieren
01.08.2003 14:51:59
David
folgendes makro speichert ein diagramm als jpg in einem ordner:
Sub export()
Dim Dia As Chart
Set Dia = ActiveSheet.ChartObjects("diagramm 8").Chart
Dia.export Filename:="C:\Users\My Documents\Letzte Versionen\Dia1.jpg", FilterName:="jpg"
End Sub
Ist es mgl., das jpg direkt in die selbe mappe auf die selbe seite zu kopieren? der name des workbook kann sich ändern, ist also nicht bekannt.
danke und gruß
david