fejl i gemning af graf.

eller er der nogen der har et andet forslag til det.

Prøv evt. med denne her, og prøv evt. at se om det virker med jpg - så skulle det vel også virke med gif?

    Dim grpApp As Graph.Chart
    Set grpApp = Me.Graph0.Object
    grpApp.Export "C:\Graph0.jpg", "JPEG"
    Set grpApp = Nothing
    Me.Graph0.Action = acOLEClose


Alternativt findes der en gammel Access 97 løsning, som du måske kan inspireres af:

http://www.mvps.org/access/downloads/chartex.zip

den melder compile error, user defind type
Dim grpApp As Graph.Chart

Gå ind i menuen Tools/References og sæt et hak ud for "Microsoft Graph x.x Object Library"

Det hjælper ikke på det,(kan du gemme uden problemmer ?)

Jeg kommer af med fejlen :
den melder compile error, user defind type
Dim grpApp As Graph.Chart

men jeg lander tilbage på samme problemm som jeg startede med :(

geagleeye > Hvis det er muligt for dig, må du gerne maile din database til mig (evt. kun det (formular+kode) der skal til for at genskabe problemet).

sjap9000 snabela hotmail punktum com

jpg er muligvis ikke et filternavn prøv med denne her

Dim grpApp As Graph.Chart
Set grpApp = Me.graph0.Object
grpApp.Export FileName:="C:\Graph0.gif", FilterName:="GIF"
Set grpApp = Nothing
Me.graph0.Action = acOLEClose

Den virker hos mig.

Kommentar: sjap
15/12-2005 20:14:04


hmmm forstå ikke rigtigt hvorfor den ikke virker hos mig, men hvilke komponenter har du installeret under refferencer

Jeg kan ikke lige se det, hvor jeg er nu, men jeg kan huske at jeg først fik fejlen med "compile error, user defined type". Så gik jeg ind i referencer og satte et hak ud for "Microsoft Graph x.x Object Library", så fik jeg en fejl i linien

grpApp.Export "C:\Graph0.jpg", "JPEG"

som jeg så ændrede til

grpApp.Export FileName:="C:\Graph0.gif", FilterName:="GIF"

og så virkede det!

Jeg kan maile mit lille eksempel til dig, hvis du øsnker at studere det nærmere.

jo, det ville da være lækkert min mail adresse er geagleeye@gmail.com

takker for hjælpen, jeg har fået den til at virke nu.

kan du ikke indlægge et svar sjap

Så vidt jeg kan se, så har jeg fået pointene - tak. :0)