How to make a Pointillizer effect through vba?

Nezar
over 5 years ago

Good day.
I do not even know where to dig ((
I tried to write a macro when this effect is applied - it turned out like this
Dim s1 as shape
Set s1 = ActiveShape.Shapes (1) .Shapes (1) .ConvertToBitmapEx (4, False, True, 30, 1, True, False, 0)
s1.Delete

but if you then re-start it - it turns out the usual pixelation - absolutely not what should have happened.
maybe someone came across - tell me where to dig?
thank!

Sorry for my English. translated through translator

Parents
No Data
Reply
  • over 5 years ago

    Normally bitmap effects are done via the ApplyBitmapEffect procedure call. For example "Gaussian Blur effect":

    s.Bitmap.ApplyBitmapEffect "Gaussian Blur", "GaussianBlurEffect GaussianBlurRadius=1000 , GaussianBlurResampled=0"

Children

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.