• Salvare i grafici come immagini

    Se dovete creare una pagina Web partendo da dei dati contenuti in un foglio di Excel, sarà utile avere a disposizione una funzione macro che consenta l’esportazione dei grafici in formato gif. In questo modo diminuirete il peso della pagina Web che andate a creare.

    Aprite il foglio Excel che contiene il vostro grafico e create la macro. Con la combinazione di tasti ALT+F8 richiamate la finestra Macro; inserite il nome della macro che ci accingiamo a creare, ad esempio “salvataggiografico” e cliccate sul pulsante “Crea”. Ora dovrete inserire il seguente codice nella pagina che vi si sarà aperta in Microsoft Visual Basic:

    Sub salvataggiografico()
    If ThisWorkbook.Path = " Then
    Risposta = MsgBox("Salvare la cartella di lavoro prima di procedere con la macro", vbOKOnly, "Errore")
    Else
    If TypeName(Selection) = "ChartArea" Then NomeFile = InputBox("Inserire il nome del file", "Salva il grafico", "Grafico")
    NomePathFile = ThisWorkbook.Path & "" & NomeFile & ".gif"
    ActiveChart.Export Filename:=NomePathFile, Filtername:="GIF"
    MsgBox "Grafico Salvato come" & Chr(13) & NomePathFile
    End If
    End Sub

    Il file gif che verrà creato sarà salvato nella cartella in cui risiede il vostro file Excel di partenza. Ovviamente potrete modificare il percorso cambiando alcuni parametri alla riga “NomePathFile”.

    Tags:

    Se vuoi aggiornamenti su Salvare i grafici come immagini inserisci la tua e-mail nel box qui sotto:


    Ho letto e acconsento l'informativa sulla privacy

    Si No

    Acconsento al trattamento dei dati personali di cui al punto 3 dell'informativa sulla privacy

    Si No

    Commenti

    1. david dice:

      a me da errore di sintassi
      Sub salvataggiografico()
      If ThisWorkbook.Path = ” Then
      sarà che ho office 2007?

    2. Errore di trascrizione. Il codice corretto è:

      Sub salvataggiografico()

      If ThisWorkbook.Path = “” Then

      Risposta = MsgBox(“Salvare la cartella di lavoro prima di procedere con la macro”, vbOKOnly, “Errore”)
      Else
      If TypeName(Selection) = “ChartArea” Then NomeFile = InputBox(“Inserire il nome del file”, “Salva il grafico”, “Grafico”)
      NomePathFile = ThisWorkbook.Path & “” & NomeFile & “.gif”
      ActiveChart.Export Filename:=NomePathFile, Filtername:=”GIF”
      MsgBox “Grafico Salvato come” & Chr(13) & NomePathFile
      End If
      End Sub

    3. david dice:

      uno a zero per me :-)

    Commenta

    Your email address will not be published. Required fields are marked *