Esportare una zona di celle come immagine (BMP)

Question

Salute a tutti!

Ho appena ultimato con grande soddisfazione personale la realizzazione con Excel 2010 di un sistema di reporting distribuito per l'azienda in cui lavoro che genera report quotidiani sull'andamento dell'azienda (in qualche precedente post chiesi aiuto per i salvataggi su SharePoint).

Quel piccolo applicativo genera quotidianamente tanti PDF quanti sono i report necessari...tra questi un quadro riassuntivo (Dashboard appunto) con i macro numeri.

Mi piacerebbe esportare quel report (che occupa una sola paginata formato A4 orizzontale) in formato BMP per impostarlo come desktop del pc...ed avere i dati a portata di occhio (tanto non cambiano se non una volta al giorno).

L'idea è di salvare quotidianamente una versione aggionrata del file BMP sovrascrivendo quello esistente ed avere quindi quel desktop sempre aggiornato.

Origniariamente avevo pensato di linkare in qualche modo il desktop al file PDF...ma non ho trovato soluzioni di sorta. Da qui l'idea di salvare il BMP nella directory C:\Windows\Web\Wallpaper\

Si può fare? come?

Grazie in anticipo come sempre per l'aiuto

Sergiovery

Answer 1

Googleando per il web ho trovato questa soluzione che sembra funzionare...

Sub SalvaImmagine()

      Dim x As Range

      Dim xx As String

      Dim Img1 As Chart

      Set x = Sheets("mySheetName"1).Range("A1:Y60")

      Set Img1 = Charts.Add

      xx = InputBox("DashBoard")

      x.CopyPicture

      With Img1

            .Paste

            .Export Filename:="C:\percorso" & xx & ".jpg", Filtername:="JPG"

      End With

      Application.DisplayAlerts = False

      ActiveChart.Delete

      Application.DisplayAlerts = True

End Sub

Mi auto-ringrazio :-)

Ri-saluti a tutti

Sergiovery

Answer 2

Ciao Sergiovery

grazie a te per aver condiviso la soluzione trovata.

David