Hallo,
I would like to ask for help.
I need to divide image in DRAW into many parts, then blur edges of each part in PP and then create a new combination by moving these parts in DRAW to create a new image.
There are a lot of parts to edit and I would apprecate to do it at once.
I divided it and selected these parts and converted to bitmap and edit them... PP nicely blured edges of all parts at once, but they are always like together in PP also in DRAW and I cannot move them separately.
Thank you for any advice.
Veronika
It is a pattern of Venetian plaster
Maybe they are grouped?
if you send original file into PP as single layer you can try this:
when done, save back to Draw, then Ungroup. You should have various feathered shapes.
Thank you very much, Mr. Harrison,
it really works like this! I DIDN´T notice those bitmaps are grouped when transported from PP to DRAW then...
Thank you again very much !!!
Please, could you please advise me also how to quicklier or at once convert many objects to bitmap but let them separated. Or should I ask not here but in another question in forum please?
Thank you.
veronićacorel said:convert many objects to bitmap but let them separated
If you have VBA then you can use short macro for this:
Sub BitmapShapes
Dim S as shape, lMode&, lDPI&
lMode = 4 ' 4 = RGB, 5 = CMYK
lDPI = 300 ' change to any your resolution
For each s in ActiveSelectionRange
s.ConvertToBitmapEx(lMode, True, True, lDPI, cdrNormalAntiAliasing, True)
' 1st True = Dithered (Yes/No = true/false)
' 2nd True = Transparent
' Last True = Use color profile
Next
End Sub
Select few shapes and run macro
Sir, I would like to ask you for help. I downloaded trial full version of Corel and as it is possible now I would like to try using macro you mentioned above. I went step by step according Mr. Myron advice.
I would like to ask , what I did wrong when it shows me "syntax error" and highlighted: s.ConvertToBitmapEx(lMode, True, True, lDPI, cdrNormalAntiAliasing, True)
Thank you for your time.
Sub BitmapShapes()
Dim S As Shape, lMode&, lDPI&
For Each S In ActiveSelectionRange
Set S = S.ConvertToBitmapEx(lMode, True, True, lDPI, cdrNormalAntiAliasing, True)