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

Omoot

Участник
Топикстартер
Сообщения
3
Реакции
0
Здравствуйте!
Столкнулся с тем, что при переносе скриптов из 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

Некромант-любитель
12 лет на форуме
Сообщения
2 131
Реакции
2 027
скорее всего кое-что поменялось со временем ...
почитайте тут
 

Omoot

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

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

Некромант-любитель
12 лет на форуме
Сообщения
2 131
Реакции
2 027
у вас
OrigSelection.ApplyEffectGamma
или
sh.ApplyEffectHSL h, s, l
а в примерах
s.Bitmap.ApplyBitmapEffect "Median", "MedianEffect MedianRadius=10,MedianPercentage=25"

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

Omoot

Участник
Топикстартер
Сообщения
3
Реакции
0
хочу заставить работать именно меторы ApplyEffectHSL, Gamma и др. подобные. Не битмаповские.
 

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 137
Реакции
10 835