Avatar billede fixxxer Nybegynder
15. marts 2007 - 14:44 Der er 5 kommentarer og
1 løsning

Gem som dialog

Jeg har fundet dette VB-script til at kunne gemme grafer i Excel til .gif-filer direkte.

Jeg kunne godt tænke mig at den kunne udvides med en "Gem som"-dialog i stedet for den hardcoded filplacering.

Jeg kender intet til VB-script, så forklaring/eksempler på lavest niveau er at foretrække.


      Sub Create_GIF()
        Dim mychart As Chart
        Set mychart = ActiveSheet.ChartObjects(1).Chart
        mychart.Export FileName:="c:\Mychart.gif", FilterName:="GIF"
      End Sub
Avatar billede Søren Bech Morsing Praktikant
27. marts 2007 - 20:19 #1
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
Avatar billede fixxxer Nybegynder
28. marts 2007 - 08:59 #2
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?
Avatar billede Søren Bech Morsing Praktikant
28. marts 2007 - 09:07 #3
så er det menuen "References"
Her finder du Microsoft ActiveX Data Objects 2.0 library"

vinkel den til

Så skulle det virke
Avatar billede fixxxer Nybegynder
28. marts 2007 - 09:30 #4
Næh samme fejl..
Avatar billede fixxxer Nybegynder
19. november 2007 - 10:12 #5
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?
Avatar billede Søren Bech Morsing Praktikant
19. november 2007 - 16:49 #6
Luk du bare
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester