How can i export all the individual graphics (RGB jpg) which are group. I have 5 circle and number are group with the circle as shown. Anyway to export 5 graphics in separate jpg file. I dont want to keep them on different pages and export, that can be possible. But i want all the graphics to be on 1 page and export separate in version 2020. Any suggestion or help or any macro. Its unlucky for me as i have purchase coreldraw 1 month before release of version 2021. Thanks
Reference video
You can try to look here
https://community.coreldraw.com/talk/coreldraw_graphics_suite_2017/f/coreldraw-2017/56764/multiple-images-export/272454
After following the steps did not get the result at the end.1. I have created a folder on the desktop and copied the link.2. created group of 3 separate 3. Next in the script edit. I have copied the script and pasted and just change the path. (the folder created on desktop)4. Drag all and selected all my 3 symbol and run the script/macro5. A quick process seen.After finishing the process when i look into the folder created earlier there is nothing inside. The files created on the desktop and not inside the folder.
I have created the folder on the desktop and copied this link
C:\Users\xyz\Desktop\exportall
and pasted.
Sub exportGroups()Dim groups As ShapeRangeDim group As ShapeDim groupname As String, path As StringSet groups = ActiveSelectionRangeFor i = 1 To groups.Countgroupname = groups.Shapes(i).Namegroups.Shapes(i).CreateSelectionpath = "C:\Users\xyz\Desktop\exportall" & groupname & ".jpg"Set expflt = ActiveDocument.ExportBitmap(path, cdrPNG, cdrSelection, cdrRGBColorImage, 0, 0, 300, 300, cdrNormalAntiAliasing, False, True, True, False, cdrCompressionNone)With expflt.interlaced = True.Transparency = 0.invertmask = False.Color = 0.FinishEnd WithNext iEnd Sub
But the folder is empty. Files did not stored in the folder but exported on the Desktop
Anyway to add 2 option with pop-up file extension (jpg, png,etc) and other is the file path with button.Where im going wrong. What process is missing, can u plz guide me. Thanks
if you want jpeg file type then try
Sub exportGroups_jpg() Dim groups As ShapeRange Dim group As Shape Dim groupname As String, path As String Set groups = ActiveSelectionRange For i = 1 To groups.Count groupname = groups.Shapes(i).Name groups.Shapes(i).CreateSelection path = "C:\Users\xyz\Desktop\exportall\" & groupname & ".jpg" Set expflt = ActiveDocument.ExportBitmap(path, cdrJPEG, cdrSelection, cdrRGBColorImage, 0, 0, 300, 300, cdrNormalAntiAliasing) With expflt .Compression = 0 .Optimized = True .Smoothing = 50 .SubFormat = 1 .Progressive = False .Finish End With Next i End Sub
Anyway to export without name or renaming. i have 100 tags go on rename will take lot of time. Anyway it can take default name an export.
I use Eskimo Quick Export. Maybe this can help.community.coreldraw.com/.../28---macro---quick-export
Thanks for the link. I try to use but i want to export all individual not a single jpg/png. When i selected all the graphics and click on export, It export as jpg/png as a default coreldraw function and not a individual graphics that im looking for.
I've been trying all the codes from this thread and from the older post and none of them export files. Not sure what's wrong.Since you can at least get files exported, you can always have to versions, one JPG and one PNG. Then just run the macro for which format you want.
Could I see your code?
I found where the exports where going C:\Users\jchestnut
I edited the code to go into C:\Users\jchestnut\Proofs but they aren't going there.(How do you post the code in the scrollable wrapper, like you did earlier)
Sub exportGroups() Dim groups As ShapeRange Dim group As Shape Dim groupname As String, path As String Set groups = ActiveSelectionRange Dim i As Long
' Loops through all groups For i = 1 To groups.Count groupname = groups.Shapes(i).Name groups.Shapes(i).CreateSelection
' Sets the export path and file name path = "C:\Users\jchestnut\Proofs" & groupname & "_" & i & ".png"
' Exports the file as a PNG image with transparancy on Set expflt = ActiveDocument.ExportBitmap(path, cdrPNG, cdrSelection, cdrRGBColorImage, 0, 0, 300, 300, cdrNormalAntiAliasing, False, True, True, False, cdrCompressionNone) With expflt .interlaced = True .Transparency = 0 .invertmask = False .Color = 0 .Finish End With Next iEnd Sub