VBA code om een filmje van een grafiek te maken

[pjchausoul]

Beste Mensen,

Is het mogelijk een fimpje van een grafiek te maken ? B.v. doormiddel van een plaatje (gif, bmp etc.) te maken van een grafiek uit de worksheet, en deze achter elkaar te plakken in een animated gif of avi ? Is hier software voor nodig , of kan excel het zelf ?

Alle hulp is welkom !

Groet Peter

 

[ReneDirks]

Ik kwam deze ergens op het forum tegen:
http://www.hyperionics.com/
(en dan hypercam)

 

[pjchausoul]

Beste Rene ,

Screen capture is natuurlijk een goede optie, maar ik bedoelde meer dat alleen de grafiek na iedere berekening wordt opgeslagen. Ik heb eens rond gekeken op het net en ben de volgende code tegen gekomen......

Sub ExportChart()

Const sSlash$ = "/"
Const sPicType$ = ".gif"
Dim sChartName$
Dim sPath$
Dim sBook$
Dim objChart As ChartObject
Set mychart = ActiveSheet.ChartObjects(1)

mychart.Activate

sChartName = "Naam van het doelbestand"
sBook = ActiveWorkbook.Path
sPath = sBook & sSlash & sChartName & sPicType
ActiveChart.Export Filename:=sPath, FilterName:="GIF"


End Sub

Als ik deze code verwerk in mijn iteratieve model kan ik na iedere berekening een gifje maken van mijn grafiek. Dit levert dus na b.v. 300 berekeningen, 300 frames op. Ik heb geprobeerd deze m.b.v. van een freeware applicatie (advanced gif animator) te combineren, en zolang als het aantal frames minder is dan 100, lukt het nog enigzins. Echter, alles wat meer is duurt veel te lang.

Dus wat ik nu nog nodig heb, is een code om iedere nieuwe frame in een multigif te krijgen.

M.V.G Peter