Tips & Tricks‎ > ‎

TT-201602: esportare grafici in formato gif



A volte si ha la necessita' di importare un grafico Excel in un documento Word, in una presentazione PowerPoint...o comunque si vorrebbe avere a disposizione una gif ad alta risoluzione per utilizzarla in un documento HTML.

Insomma, ci sono molti motivi che richiederebbero di poter utilizzare tale grafico in formato gif ma Excel da interfaccia utente non permette di esportarlo.

Si potrebbe pensare di catturare l'immagine con un "grabber", cioe' quel tipo di applicativi (anche disponibili in Windows) che permettono di ritagliare un' immagine e salvarla in vari formati, o
ppure utilizzare il VBA...

 Copiate la seguente routine nel vostro foglio di lavoro, specificate il "path" dove salvare l'immagine nonche' il nome della gif ed il gioco e' fatto!


Sub Crea_GIF()
         Dim mychart As Chart
         Set mychart = ActiveSheet.ChartObjects(1).Chart
         mychart.Export Filename:="D:\path\nomeimmagine.gif", FilterName:="GIF"
      End Sub

I grafici sono oggetti catalogati, a dire, se ne avete istanziato due, uno sara' il primo e uno il secondo, quindi, nell'eventualita' di esportarli entrambi, girate la routine due volte, una con  "ActiveSheet.ChartObjects(1).Chart" e l'altra con  "ActiveSheet.ChartObjects(2).Chart"