Salvare i grafici come immagini

di Saverio Lipari

scritto il

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”.