Grafico excel tramite script

Copiati il codice nel blocco note, lo salvi con nome aggiungendo .vbs e poi lo apri (altrimenti non ha senso :D:D)... successivamente si aprirà excel dove nel foglio 1 saranno visualizzate le tabelline dall'uno al dieci, e dopo si avvierà la creazione di un grafico a 3D con rotazione di 380° (un angolo giro è 360° nel sistema sessagesimale) quindi dopo aver ruotato in modo completo si fermerà a 20° in modo da mettere in evidenza la grafica in 3D.

Dim xlApp, xlBook, xlChart, xlWks, xlRange
Dim iRows, iCols, iRotate
Const xl3DColumn = -4100
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlWks = xlBook.Worksheets(1)
Set xlRange = xlWks.Range("A1:J10")
For iRows = 1 To 10
For iCols = 1 To 10
xlRange.Cells(iRows,iCols).Value = iRows * iCols
Next
Next
xlApp.Visible = True
xlWks.Activate
xlRange.Select
set xlChart = xlBook.Charts.Add
With xlChart
.Activate
.Type=xl3DColumn
For iRotate = 0 to 360 Step 20
xlChart.Rotation = iRotate
Next
xlChart.Rotation = 20
End With
xlBook.SaveAs "C:\Grafico_Excel.xls"
Set xlRange= Nothing
Set xlChart= Nothing
Set xlWks= Nothing
Set xlBook= Nothing
Set xlApp = Nothing


N.B.: Dal momento in cui apri lo script si genera il grafico, che in automatico viene salvato in C: (Start - Risorse del computer - Disco locale C) col nome di Grafico_Excel.xls e poi aggiungo che se non si dovesse vedere tutto l'effetto grafico, la colpa va attribbuita al pc che è lento... :-D
Comunque in ogni caso è scientificamente provato che funziona..!!
Condividi su Google Plus

Info su Giovanni Di Mauro

Questa è una breve descrizione nel blocco dell'autore sull'autore. Lo modifichi inserendo il testo su "Informazioni biografiche" nel pannello di amministrazione dell'utente.
    Commenti da Blogger
    Commenti da Facebook

0 commenti :

Posta un commento