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
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
change this
path = "C:\Users\jchestnut\Proofs" & groupname & "_" & i & ".png"
to
path = "C:\Users\jchestnut\Proofs\" & groupname & "_" & i & ".png"
re. code - use hilite.me
To put that HTML into and post, use Tools>Source Code in the editor here on the forum.
(Thanks to Eskimo and FaneDuru)
That worked Thank you!
You are welcome!