Prev: Simplifying a repetitive vbs script
Next: A new HTA based message box
From: john on 24 Jun 2010 09:19
Can anybody help me with a script .

I want to read the input file ( the file is a csv file ) in the script :


Inputfile :
145,Windows Server 2003
487 Windows XP
211,Windows 2000



Here is the script :
Const xlDataLabelsShowPercent = 2 '3

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()

Set objWorksheet = objWorkbook.Worksheets(1)

objWorksheet.Cells(1,1) = "Operating System"
objWorksheet.Cells(2,1) = "Windows Server 2003"
objWorksheet.Cells(3,1) = "Windows XP"
objWorksheet.Cells(4,1) = "Windows 2000"


objWorksheet.Cells(1,2) = "Number of Computers"
objWorksheet.Cells(2,2) = 145
objWorksheet.Cells(3,2) = 487
objWorksheet.Cells(4,2) = 211


Set objRange = objWorksheet.UsedRange
objRange.Select

Set colCharts = objExcel.Charts
colCharts.Add()

Set objChart = colCharts(1)
objChart.Activate

objChart.ChartType = 70 '70
objChart.Elevation = 30 '30
objChart.Rotation = 80 '80

objChart.ApplyDataLabels xlDataLabelsShowPercent

objChart.PlotArea.Fill.Visible = False 'true
objChart.PlotArea.Border.LineStyle = -4142 '-4142

objChart.SeriesCollection(1).DataLabels.Font.Size = 14
objChart.SeriesCollection(1).DataLabels.Font.ColorIndex = 2
' /// END


can anybody help me with this script

Thanks a lot

John


 | 
Pages: 1
Prev: Simplifying a repetitive vbs script
Next: A new HTA based message box