This code below used to work with previous versions of CorelDRAW but not now.What has changed with ApplyEffectBCI??
I know that now if we add a "Brighness, Contrast, Intensity" effect to the image it get's non-destructive and is added to the "Bitmap Effects" list.
Sub ImageBrighness() Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange Dim sh As Shape, s As Bitmap If ActiveSelectionRange.Count = 0 Then MsgBox "No Shapes Selected" Exit Sub Else For Each sh In OrigSelection sh.ApplyEffectBCI 10, 10, 10 Dim sh1 As Shape Set sh1 = sh.ConvertToBitmapEx(cdrRGBColorImage, False, True, 200, cdrNormalAntiAliasing, True, False, 95) Next sh End If End SubAny help would appreciated.
I had asked a similar question in this thread as well...https://community.coreldraw.com/sdk/f/coreldraw-and-corel-designer-api/61266/vba-applyeffectbci-and-bitmap-applybitmapeffect-vignette-not-working-in-corel-2019/293995#293995