home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW09_S1.LSS < prev    next >
Encoding:
Text File  |  1996-07-09  |  1018 b   |  24 lines
  1. ' Putting clip art on the current page.
  2. ' This script defines a sub named LaunchTextBox that
  3. ' puts a piece of clip art on the current page. Note that
  4. ' you can attach this script to button click event.
  5. Sub LaunchTextBox
  6. ' This sub uses the CreateSymbol method (Page class) to
  7. ' create clip art.  In this example, one of the
  8. ' parameters of CreateSymbol uses the TemplateDir property
  9. ' of Preferences (Preferences is itself a property of the
  10. ' Application class) to specify the path for the clip art
  11. ' file, the file name is concatinated to the path. 
  12. ' The second parameter indicates which of the textbox
  13. ' symbols to add.
  14.     CurrentPage.CreateSymbol _
  15.     CurrentApplication.Preferences.TemplateDir +_
  16.     "textbox.sym", 1
  17. ' Once the clip art is created it is a selected element
  18. ' on the page. The next line of code uses the
  19. ' ClearSelection method to deselect all
  20. ' elements on the page. ClearSelection is a method of
  21. ' both the Selection and PageSelection classes.
  22.     Selection.ClearSelection
  23. End Sub
  24.