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
You can try to look here
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
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
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
path = "C:\Users\xyz\Desktop\exportall\" & groupname & ".jpg"
Set expflt = ActiveDocument.ExportBitmap(path, cdrJPEG, cdrSelection, cdrRGBColorImage, 0, 0, 300, 300, cdrNormalAntiAliasing)
.Compression = 0
.Optimized = True
.Smoothing = 50
.SubFormat = 1
.Progressive = False
I want to export into a specific folder that is created on desktop name exportall. Why the image save on desktop and not in the given path. I have set the correct path still it save on desktop. Thanks for the script. Can you plz add 2 buttons to the script 1 for changing the file (png / jpg) and other saving path. So that always i do not need to enter the script and change the path and file extension.
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.