Gem Graf som *.gif

Hos Stephen Bullen kan du måske hente hjælp, ved at download flg. fil. Den gør det du beder om, men jeg kan ikke selv gennemskue koden bag. Han har iøvrigt mange interessant ideer, ham Stephen.

http://www.bmsltd.co.uk/Excel/SBXLFrm.htm
(Gå til PastePicture.zip nede på siden)

eller

http://www.bmsltd.co.uk/DLCount/DLCount.asp?file=PastePicture.zip

Hej Ploughgaard
tak for tipset, det der rigtigt at du kan gemme en graf men det er som bmp fil som fylder hele siden og så skal jeg jo lave den om og det var det jeg vil slippe for. men jeg vil se om jeg kan tilpasse koden så jeg kan bruge den, men som du skriver er dem jo ikke sådan at gennemskue. så er der andre der har nogle vil jeg blive :-)
mvh Ole

Følgende makro kan bruges på et valgt eller aktivt chart:

Sub exporterChart()
    Dim filnavn As String
   
    filnavn = InputBox("Indtast filnavn")
    If filnavn <> "" Then ActiveChart.Export Application.Path & "\" & filnavn & ".gif", "gif"
End Sub

Hej nerøs.
Foreløbig tak for hjælpen det virker sku´
men har du en lille ændring så jeg kan bruge den på flere valgte chart,
hvis jeg prøver får jeg en variabel fejl.
Evt. også hvordan jeg definere en bestemt størrelse på grafen til gif filen
På forhånd rigtig mange tak
PS. jeg håber ikke det er for meget af be´ om , du ved når man rækker fanden lillefingeren ... ;-) onq

Nedenstående exporterer alle charts i det aktive sheet til regnearkets savepath.
Du kan evt lægge en msgbox ind i løkken der der giver dig mulighed for at vælge om aktuelt cht skal gemmes.

Størrelsen på giffilen afhænger af objektets aktuelle størrelse som selvfølgelig kan ændres vha VBA.

Sub exporterChart()
    Dim cht As ChartObject
    For Each cht In ActiveSheet.ChartObjects
    cht.Chart.Export ActiveWorkbook.Path & "\" & cht.Name & " .gif", "gif"
    Next cht
End Sub


VH Søren

Følgende virker kun på de valgte charts
Typename Testen er unødvendig hvis der kun er valgt chartobjects

Sub exporterChart2()
Dim cht As Object
For Each cht In Selection
If TypeName(cht) = "ChartObject" Then
    cht.Chart.Export ActiveWorkbook.Path & "\" & cht.Name & " .gif", "gif"
End If
Next cht
End Sub

hej igen nerøs.
du har jo sanglig fortjent dine point og mere til du skal nok få dem, jeg ved bare om jeg kan gi dig dem nu  eller om jeg så lukker for flere svar ??
et sidste spørgsmål, jeg vil gerne gemme de 2 Chart eller så mange jeg har markeret som en gif fil
endnu en gang mange tak for hjælpen
mange venlige hilsner onq

Pyh jeg synes også godt snart jeg kunne bruge de points - men jeg forstår ikke rigtigt dit sidte spørgsmål.

VH Søren

Hej Søren
Det jeg mener er at har jeg oprettet en graf fra en gruppe tal så opretter jeg en graf mere fra en ny gruppe, så markere jeg de 2 grafer (eller så mange jeg har oprettet ) og derefter vil jeg gerne kunne gemme de 2 eller flere. som en gif fil. når man så åbner filen kan man se de 2 grafer eller flere på en gang.
hilsen ole ( onq@privat.dk )

Det er muligt at placere embeddede charts på et chart (Vælg embedded chart, højreklik, vælg location og derpå et eksisterende chart. Dette kan gøres flere gange).
Det er så muligt at gemme chartet med flere grafer med førnævnte metode.
Jeg sender en fil med eksempel VH Søren