[CDR 2017-2021] Не работают свойства ApplyEffect в скриптах

[Omoot]

Здравствуйте!
Столкнулся с тем, что при переносе скриптов из 2017 в 2019 и 2020 перестали работать свойства Shape.ApplyEffectHSL, Shape.ApplyEffectGamma - просто ничего не происходит. Тот же самый скрипт в 2017 работает прекрасно. При этом Shape.Rotate, Shape.Stretch - прекрасно работают.

Код следующий:

Sub RndHSL()
Dim sh As Shape

For Each sh In ActiveLayer.Shapes

h = 20 * (Rnd() - 0.5)
s = 10 * (Rnd() - 0.5)
l = 10 * (Rnd() - 0.5)
sh.ApplyEffectHSL h, s, l

a = 360 * (Rnd() - 0.5)
sh.Rotate a

Next sh
End Sub

 

[dastin]

скорее всего кое-что поменялось со временем ...
почитайте тут

 

[Omoot]

Спасибо, но ответов там не нашёл. Сейчас проверил по другому - записал макрос "с экрана", получилось следующее:

Sub TestEffect()
' Recorded 19.03.2020
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
OrigSelection.ApplyEffectGamma 0.3
OrigSelection.RotateEx 30#, 3.278815, 5.062106
End Sub

когда записывал вручную через менюшки, всё сработало - и гамма и поворот. При запуске скрипта объект крутится, а гамма не срабатывает...

 

[dastin]

у вас
OrigSelection.ApplyEffectGamma
или
sh.ApplyEffectHSL h, s, l
а в примерах
s.Bitmap.ApplyBitmapEffect "Median", "MedianEffect MedianRadius=10,MedianPercentage=25"

или вы о чем -то другом?

 

[Omoot]

хочу заставить работать именно меторы ApplyEffectHSL, Gamma и др. подобные. Не битмаповские.

 

[_MBK_]

Не битмаповские.

Это зло