home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Gamer UK 45 / PCGAMER45.bin / netware / msie4pp / wsh.cab / chart.vbs < prev    next >
Text File  |  1996-10-15  |  1KB  |  38 lines
  1. ' Windows Script Host Sample Script
  2. '
  3. ' ------------------------------------------------------------------------
  4. '               Copyright (C) 1996 Microsoft Corporation
  5. '
  6. ' You have a royalty-free right to use, modify, reproduce and distribute
  7. ' the Sample Application Files (and/or any modified version) in any way
  8. ' you find useful, provided that you agree that Microsoft has no warranty,
  9. ' obligations or liability for any Sample Application Files.
  10. ' ------------------------------------------------------------------------
  11.     
  12. Dim objXL
  13. Dim objXLchart
  14. Dim iRotate
  15.  
  16. Set objXL = WScript.CreateObject("Excel.Application")
  17. objXL.Visible = TURE
  18. objXL.Workbooks.Add
  19. objXL.Cells(1,1).Value = 5
  20. objXL.Cells(1,2).Value = 10
  21. objXL.Cells(1,3).Value = 15
  22. objXL.Range("A1:C1").Select
  23.  
  24. Set objXLchart = objXL.Charts.Add()
  25. objXL.Visible = True
  26. objXLchart.Type = -4100     
  27.  
  28. For iRotate = 5 To 180 Step 5
  29.     objXLchart.Rotation = iRotate
  30. Next
  31.  
  32. For iRotate = 175 To 0 Step -5
  33.     objXLchart.Rotation = iRotate
  34. Next
  35.  
  36. Set objXL = Nothing
  37.  
  38.