COME CREARE UN GRAFICO RUOTANTE IN EXCEL DA FILE VBS
Lo script di oggi permette di fare interagire l’editor Visual Basic Script di windows con Excel (foglio elettronico o foglio di calcolo) costruendo lo schema delle tabelline dall’1 al 10 e visualizzandole in un grafico ruotante in 3D.
Codice
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) 'numero del foglio di lavoro
Set xlRange = xlWks.Range("A1:J10") 'intervallo di celle
For iRows = 1 To 10 'numero delle righe
For iCols = 1 To 10 'numero delle colonne
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 'stabilisce la rotazione completa e che si deve fermare a 20°
xlChart.Rotation = iRotate
Next
xlChart.Rotation = 20 'rotazione a 20°
End With
xlBook.SaveAs "D:\Grafico_Excel.xls" 'nome del file
Set xlRange= Nothing
Set xlChart= Nothing
Set xlWks= Nothing
Set xlBook= Nothing
Set xlApp = Nothing
