Application.OpenCorelScriptFile

Function OpenCorelScriptFile(FileName As String) As CorelScriptFile

Member of Application

The OpenCorelScriptFile method opens a Corel SCRIPT file and returns a reference to the CorelScriptFile object which allows you to load and execute a Corel SCRIPT program.

The following code example opens an existing Corel SCRIPT file. An ellipse is created on the active layer of the current document and the script runs to create a fill effect, Alien Sky, on the ellipse.

Sub Test() 
 Dim csf As CorelScriptFile 
 Set csf = 
OpenCorelScriptFile("C:\Corel\Graphics10\Draw\Fill_Out\Fills\Fount
ain\aliensky.csc") 
 ActiveDocument.ActiveLayer.CreateEllipse2 3, 3, 2 
 csf.Play 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.