gaussian blur не работает в записи макроса
cheesus / 26.02.2015, 11:42
Форум:
Версия программы:
17.2.0.688
был у меня раньше макрос (делал просто через запись) такой вот
- любой объект копируется на те же координаты
- опускается на уровень вниз
- сдвигается на 1 мм вниз и вправо
- через яркость/контраст/интенсивность (ctrl+b) делается черным (всё по -99)
- растрируется с прозрачным фоном (ну скажем 80 dpi и CMYK)
- gaussian blur на 10px
вот раньше сам записывал на новом месте, теперь блюр почему то не хочет работать
подскажите пожалуйста что не так делаю или как по другому написать
это вы тень такую делали?
ага, очень удобно когда например какую нибудь листовку собираешь или баннер где много разных наименований
эффекты обычно вызываются через метод ApplyBitmapEffect. Выложите код макроса, может быть, получится помочь вам
как-то так
Sub test()
' Recorded 05.03.2015
'
' Description:
' test
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Dim dup1 As ShapeRange
Set dup1 = OrigSelection.Duplicate
dup1.OrderBackOne
dup1.Move 0.03937, 0#
dup1.Move 0#, -0.03937
dup1.ApplyEffectBCI -100, -100, -100
Dim s1 As Shape
Set s1 = dup1.ConvertToBitmapEx(5, False, True, 72, 1, True, False, 95)
End Sub
на сколько я понимаю, блюр вообще не записывается...
поставил шестой корел, в нем записалось, вот такая строчка:
s1.Bitmap.ApplyBitmapEffect "GaussianBlur", "GaussianBlurEffect GaussianBlurRadius=500,GaussianBlurResampled=0"
500 - это вроде как 5 пикселей размытие.
вот у меня вопрос по ConvertToBitmap, что там значения означают? я понимаю только 72 это dpi
и по Move в каких единицах смещение происходит?
и еще: как мне сохранить готовый .gms
Function ConvertToBitmapEx
([Mode As cdrImageType = cdrRGBColorImage], ...Const cdrCMYKColorImage = 5
[Dithered As Boolean = False], ... False - нет
[Transparent As Boolean = False], .... True - да
[Resolution As Long = 72], ....72
[AntiAliasing As cdrAntiAliasingType = cdrNormalAntiAliasing], 0 - нетб 1 - да
[UseColorProfile As Boolean = True], да
[AlwaysOverprintBlack As Boolean = False], нет
[OverprintBlackLimit As Long = 95]) As Shape ...Automatic overprinting is controlled by the Overprint Limit setting. The default setting of 95 percent
в пунктах
Как создать новый gms файл
в ConvertToBitmapEx не обязательно прописывать все параметры. В вашем случае можно написать просто
Set s1 = dup1.ConvertToBitmapEx(5, , True ), т.е. конвертируем в CMYK и добавляем прозрачность, остальное всё по умолчанию. Две строчки с Move тоже можно убрать, написав эти значения в скобочках после Duplicate, т.е. Set dup1 = OrigSelection.Duplicate(0.03937,0.03937), это сделает копию с заданным смещением
спасибо ^^
а вот еще такая штука интересует, мимо темы в кореле есть такая горячая клавиша ctrl+shift+E (если выделен вектор включает пипетку которой можно взять цвет для этого вектора), можно ли сделать так же только для аутлайна? сама горячая клавиша на сколько я понял вообще баг, потому что в документации она приписана к мешам
cheesus, никакого бага не заметил: на панели свойств инструмента "Mesh" есть кнопка с пипеткой. А что мешает навести пипетку на Outline?
Страницы