BobDeBourgondier
Nieuwe gebruiker
- Lid geworden
- 4 dec 2012
- Berichten
- 2
Ik heb een probleem met VBA dat ik gebruik in CorelDraw.
Ik kan wel één bestand van CDR naar JPG converteren maar ik vind geen oplossing om een volledige bunch door één macro te converteren.
Hierbij de macro die ik gebruik maar ik moet telkens het CDR bestand ingeven en het JPG bestand, daarna starten met F5.
Sub Convert1()
Dim doc1 As Document
Set doc1 = OpenDocument("E:\COREL\Corel X3\CGX3_CLPART (H)\Clipart\Borders\Corners\X3001338.cdr")
Dim expflt As ExportFilter
Dim pal As StructPaletteOptions
Set pal = New StructPaletteOptions
With pal
.PaletteType = cdrPaletteUniform
.DitherType = cdrDitherOrdered
.DitherIntensity = 100
End With
Set expflt = doc1.ExportBitmap("E:\JPG bestanden\Borders\Hoeken\Border HOEK X3001338.jpg", cdrJPEG, cdrAllPages, cdrPalettedImage, 516, 621, 41, 41, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionNone, pal)
With expflt
.Progressive = False
.Optimized = True
.SubFormat = 0
.Compression = 10
.Smoothing = 10
.Finish
End With
End Sub
Kan iemand mij daar mee helpen
Dankbij voorbaat
Ik kan wel één bestand van CDR naar JPG converteren maar ik vind geen oplossing om een volledige bunch door één macro te converteren.
Hierbij de macro die ik gebruik maar ik moet telkens het CDR bestand ingeven en het JPG bestand, daarna starten met F5.
Sub Convert1()
Dim doc1 As Document
Set doc1 = OpenDocument("E:\COREL\Corel X3\CGX3_CLPART (H)\Clipart\Borders\Corners\X3001338.cdr")
Dim expflt As ExportFilter
Dim pal As StructPaletteOptions
Set pal = New StructPaletteOptions
With pal
.PaletteType = cdrPaletteUniform
.DitherType = cdrDitherOrdered
.DitherIntensity = 100
End With
Set expflt = doc1.ExportBitmap("E:\JPG bestanden\Borders\Hoeken\Border HOEK X3001338.jpg", cdrJPEG, cdrAllPages, cdrPalettedImage, 516, 621, 41, 41, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionNone, pal)
With expflt
.Progressive = False
.Optimized = True
.SubFormat = 0
.Compression = 10
.Smoothing = 10
.Finish
End With
End Sub
Kan iemand mij daar mee helpen
Dankbij voorbaat