home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / wsh.cab / chart.vbs < prev    next >
Text File  |  1998-01-29  |  2KB  |  63 lines
  1. ' Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows
  2. '
  3. ' ------------------------------------------------------------------------
  4. '               Copyright (C) 1996-1997 Microsoft Corporation
  5. '
  6. ' Klient posiada pe│ne prawa do u┐ywania, modyfikowania, reprodukowania 
  7. ' i dystrybucji plik≤w przyk│adowych aplikacji (i/lub dowolnej 
  8. ' ich zmodyfikowanej wersji), w spos≤b dla niego u┐yteczny, pod warunkiem 
  9. ' zaakceptowania faktu, i┐ firma Microsoft nie zapewnia gwarancji i nie 
  10. ' ponosi odpowiedzialno£ci za pliki przyk│adowych aplikacji.
  11. ' ------------------------------------------------------------------------
  12.  
  13. ' Ten przyk│ad pokazuje w jaki spos≤b uzyskaµ dostΩp do programu Excel poprzez Hosta skrypt≤w systemu Windows.
  14.  
  15. L_Welcome_MsgBox_Message_Text    = "Ten skrypt pokazuje w jaki spos≤b uzyskaµ dostΩp do programu Excel poprzez Hosta skrypt≤w systemu Windows."
  16. L_Welcome_MsgBox_Title_Text      = "Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows"
  17. Call Welcome()
  18.     
  19. ' ********************************************************************************
  20. ' *
  21. ' * Przyk│ad dla programu Excel
  22. ' *
  23.  
  24. Dim objXL
  25. Dim objXLchart
  26. Dim intRotate
  27.  
  28. Set objXL = WScript.CreateObject("Excel.Application")
  29. objXL.Workbooks.Add
  30. objXL.Cells(1,1).Value = 5
  31. objXL.Cells(1,2).Value = 10
  32. objXL.Cells(1,3).Value = 15
  33. objXL.Range("A1:C1").Select
  34.  
  35. Set objXLchart = objXL.Charts.Add()
  36. objXL.Visible = True
  37. objXLchart.Type = -4100     
  38.  
  39. For intRotate = 5 To 180 Step 5
  40.     objXLchart.Rotation = intRotate
  41. Next
  42.  
  43. For intRotate = 175 To 0 Step -5
  44.     objXLchart.Rotation = intRotate
  45. Next
  46.  
  47. ' ********************************************************************************
  48. ' *
  49. ' * Witamy
  50. ' *
  51.  
  52. Sub Welcome()
  53.     Dim intDoIt
  54.  
  55.     intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text, _
  56.                       vbOKCancel + vbInformation,    _
  57.                       L_Welcome_MsgBox_Title_Text )
  58.     If intDoIt = vbCancel Then
  59.         WScript.Quit
  60.     End If
  61. End Sub
  62.  
  63.