home *** CD-ROM | disk | FTP | other *** search
/ AppleScript - The Beta Release / AppleScript - The Beta Release.iso / Developer Scripts / Excel 4.0 AS Examples / Demos / 3d Surface next >
Encoding:
Text File  |  1992-11-25  |  319 b   |  9 lines  |  [TEXT/ToyS]
  1. tell application "Microsoft Excel"
  2.     make document
  3.     set formula of first cell to "=sin(row()/8)*cos(column()/4)"
  4.     duplicate first cell to Range "R1C1:R20C10"
  5.     set font of Range "R1C:R20C10" to "Helvetica"
  6.     make Chart
  7.     set bounds of first window to {10, 100, 500, 350}
  8.     set type of first Chart to three D Surface
  9. end tell