Corel and Visual Basic

Corel and Visual Basic

Post by Smokey Jo » Mon, 04 Aug 2003 20:44:03



Does anyone have an example of a visual basic script for ANY Corel
application (if you have a choice then Photo Paint v10) that you could send
me as I'm getting a little upset at my inability to get one to work. I think
if I could see an example of one already done I would be able to work it
out. I have a shed load of photos and all I want to do is run a macro to
reduce them in size but I can't get the first bit of the command that I
need.


Here's what I've wrote so far

Sub redu()
Dim x As Integer
Dim openname As String
Dim savename As String
For x = 2 To 9
    Let openname = ("110-100" & x & "_IMG.jpg")
    Let savename = ("Venice" & x & ".jpg")
'activate relevant window
    CorelPHOTOPAINT.FileOpen.openname
'resample
    ActiveDocument.ImageResample 320, 240, 72, 72, True
'save file as
    CorelPHOTOPAINT.FileSave.savename , 774, 0
    ActiveDocument.Close
Next
For x = 10 To 99
    Let openname = ("110-100" & x & "_IMG.jpg")
    Let savename = ("Venice" & x & ".jpg")
'activate relevant window
    CorelPHOTOPAINT.FileOpen.openname
'resample
    CorelPHOTOPAINT.ActiveDocument.ImageResample 320, 240, 72, 72, True
'save file as
    CorelPHOTOPAINT.FileSave.savename , 774, 0
    ActiveDocument.Close
Next
End Sub

 
 
 

1. Visual InterDev for the Visual Basic Developer

Come join the Visual Basic Developers Network in presenting

Microsoft Visual InterDev

Cost    $0.00

Where:  Microsoft
         1 Lincoln Centre
         Oak Brook Terrace, Illinois

When:   7:00PM   March 11. 1997

Agenda:  Microsoft Certification - Presented by Transcender Corp.
          Visual InterDev for the Visual Basic Developer - Presented by Empowered
Software                  Solutions.   Speaker Norman Gragasin - Microsoft Certified
Solution Developer

Raffle:    One Copy of Visual InterDev...Plus more...

Food and Beverages provided coutesy of Transcender

More detail: http://www.chmela.com/vbdn

--
Keith Franklin
Microsoft Certified Solution Developer

Empowered Software Solutions
Microsoft Solution Provider
Microsoft SiteBuilder
www.empowered.com
(888) 2-EMPOWR

2. How do I get around the flickering when I paint Polyies and the like to a Canvas?

3. CO-Denver- Visual Basic Developer ( 469972 )

4. HELP: KURTA XGT/Win'95

5. Graphics Programming Using Visual Basic 5.0

6. plot 'n fit

7. fli/flc player for 32-bit Visual Basic

8. Can't use 24" monitor on OCTANE - Help

9. Updating TIFF tags using visual basic?

10. Using Visual Basic with OpenGL

11. using OpenGL from Visual basic

12. Graphics in Visual Basic ?