OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Alex

Conversation Between Alex and norbert_ds
Showing Visitor Messages 1 to 1 of 1
  1. norbert_ds
    24-08-2008 23:51
    norbert_ds
    Hi Alex,

    I don;t normally private message anyone but I'm prettu desperate at the moment.

    what I am trying to achieve is to make three differently named GIF files out of my Corel artwork. While the files are created, two of them show up as 0KB.

    Would appreciate any help.

    Regards
    Norbert



    <CODE>Dim expfltGIF1 As ExportFilter
    Dim expfltGIF2 As ExportFilter
    Dim expfltGIF3 As ExportFilter
    If sx > sy Then
    height = sy * 216 / sx
    Set expfltGIF1 = ActiveDocument.ExportBitmap(FilePth + "Magazine-" + clientID + "_" + Street + " " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, 216, height, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
    Set expfltGIF2 = ActiveDocument.ExportBitmap(FilePth + "Newspaper-" + clientID + "_" + Street + " " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, 216, height, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
    Set expfltGIF3 = ActiveDocument.ExportBitmap(FilePth + "WebSite-" + clientID + "_" + Street + " " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, 216, height, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
    Else
    width = sx * 216 / sy
    Set expfltGIF1 = ActiveDocument.ExportBitmap(FilePth + "Magazine-" + clientID + "_" + Street + " " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, width, 216, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
    Set expfltGIF2 = ActiveDocument.ExportBitmap(FilePth + "Newspaper-" + clientID + "_" + Street + " " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, width, 216, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
    Set expfltGIF3 = ActiveDocument.ExportBitmap(FilePth + "WebSite-" + clientID + "_" + Street + " " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, width, 216, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
    End If

    With expfltGIF1
    .Interlaced = True
    .Transparency = 0
    .InvertMask = False
    .ColorIndex = 1
    .Finish
    End With

    With expfltGIF2
    .Interlaced = True
    .Transparency = 0
    .InvertMask = False
    .ColorIndex = 1
    .Finish
    End With

    With expfltGIF3
    .Interlaced = True
    .Transparency = 0
    .InvertMask = False
    .ColorIndex = 1
    .Finish
    End With</CODE>

All times are GMT -5. The time now is 04:38.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com