Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Using Corel Script through OLE automation

Using Corel Script through OLE automation

Using Corel Script through OLE automation


We are using Corel 7.0 french version under Windows NT 4.0 .
We wish to pilot Corel remotely from Internet Explorer 4.01 with a VB Script
to export Jpeg file from Cdr files.
We want to apply a specific size to the exported bitmap without any
deformation. So we have to get the size of drawing in our VB Script to
compute the exportation size.
We have found the ".GetSize" Corel Script instruction which seems to return
XSize and YSize in arguments passed by reference.
Since VB Script does not allow to pass arguments by reference, how can the
XSize and YSize be returned from Corel in our VB Script ?
Here is our code:

Function NewimportCorel(fichier,larg,haut)
Dim draw
Dim XSize
Dim YSize
Set draw = CreateObject("CorelDraw.Automation.7")
draw.GetSize.XSize, YSize <--- does not work
rem We have to compute here new apropriate valuse for larg and haut
draw.FileExport fichier, 774, larg, haut, 72, 72, 3
Set draw = Nothing
End Function


Jean-Marc BRENOT - AIS

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close