[CDR 2024] Effects Levels

[iKoolk]

Во-первых, спасибо за помощь в прошлом моем вопросе. А на второе такой вопрос: как средствами макроса вызвать окно "Effects-Adjust-Levels" или на худой конец применить Auto Adjust из этого диалога? ApplyBitmapEffect как-то у меня не докручивается, не получается создать правильную строку команды. А может быть Levels вообще через ApplyBitmapEffect не делается...
Да, CorelDraw, а не Photo-paint

 

[dastin]

Auto Adjust

Sub AutoAdj()
Application.FrameWork.Automation.InvokeItem "f9d61ad8-4f99-4ada-b900-d3c4c9b3ca60"
DoEvents
End Sub

 

[iKoolk]

Sub AutoAdj()
Application.FrameWork.Automation.InvokeItem "f9d61ad8-4f99-4ada-b900-d3c4c9b3ca60"
DoEvents
End Sub

Большое спасибо. Программа минимум выполнена - AutoAdjust происходит. А может быть есть все же вариант с вызовом диалога? Чтобы в ручную указать точки белого и черного.

 

[iKoolk]

еще спасибо за наводку. вот это cebbcfb6-8412-4568-8301-93ea5eeb95b5 открывает то, что нужно