Graf til grafik fil

Læg denne makro i din personlige makromappe og opret en knap på menulinien til at køre den
Grafen skal være markeret når du gør det.

Sub Export_Graf()
On Error GoTo fejl
svar = Application.GetSaveAsFilename(fileFilter:="Billedfil (*.gif), *.gif")
If svar = False Then GoTo fejl
ActiveChart.Export _
    FileName:=svar, FilterName:="GIF"
Exit Sub
fejl:
MsgBox ("Ikke gemt")
End Sub

1. Tryk på knappen 'Print Screén' på dit tastatur
2. Åben Paint, og Sæt billedet ind (Ctrl+v)
3. Afgræns dit billede, og gem det som JPEG/GIF

Hvis du vil gøre det manuelt, så stil dig på grafen.
tryk på shift og højreklik.
I munuen Rediger er der nu kommet et nyt menupunkt, der hedder kopier billede.
Vælg Bitmap og indsæt så i Paint

>>bak
Det er lige sådant et stykke kode jeg har ledt efter. Er det muligt at få den til at gemme et bestemt sted hvergang + overskrive den 'gamle' fil?

Ja da, men så skal brugeren jo ikke have lov at vælge :-)

Sub Export_Graf()
On Error GoTo fejl
Application.DisplayAlerts = False

Filnavn = "c:\Dokumenter\MinGraf"
ActiveChart.Export _
    FileName:=Filnavn, FilterName:="GIF"
Application.DisplayAlerts = True

Exit Sub
fejl:
MsgBox ("Ikke gemt")
Application.DisplayAlerts = True
End Sub

Nemlig - det er MIG som bestemmer !

Tak for hjælpen.

hej BAK

Det er din løsning som jeg kan bruge - gi et svar så du kan få point og jeg kan lukke

mvh
Aksel