Gem som dialog

under references skal der tilføjes en ny, for at det virker, kigger lige hvad den hedder (tror ellers du bare kan bladre indtil du finder "commonDialog")

CommonDialog1.FileName = "filnavnet..."
CommonDialog1.ShowSave

Nu har jeg rodet lidt med følgende:

      Sub Create_GIF()
        Dim CDLG As Object
        Set CDLG = CreateObject("MSComDlg.CommonDialog")
        Dim mychart As Chart
        Set mychart = ActiveSheet.ChartObjects(1).Chart

        mychart.Export filename:=d.filename, FilterName:="GIF"
      End Sub


Men jeg får konsekvent følgende fejl når jeg kører macro'en fra Excel:

"ActiveX component can't create object"

Hvilket jeg har læst mig til er noget licens-pladder med comdlg32.ocx

Har du nogen bud på hvordan jeg får det til at virke?

så er det menuen "References"
Her finder du Microsoft ActiveX Data Objects 2.0 library"

vinkel den til

Så skulle det virke

Næh samme fejl..

Jeg fandt omsider en løsning:

Sub GifCht()
Dim FName As String


FName = Application.GetSaveAsFilename("chart.gif", "Gif File (*.gif), *.gif", , "Gem graf")
ActiveChart.Export Filename:=FName, FilterName:="GIF"
End Sub


Vil du have lidt point som tak for din interesse for problemstilingen?

Luk du bare