Включение 3-point curve через VBA

[dear]

Как включить 3-point curve через Application.ActiveTool? Не могу найти его cdrType

 

[lev]

Ответ: Включение 3-point curve через VBA

А чего сложного? Включили инструмент, и узнали номер.

Sub GetActiveTool()
 MsgBox ActiveTool
End Sub

У меня выходит - 208

 

[dear]

Ответ: Включение 3-point curve через VBA

В том то и дело, что у меня код работает только на тех цифрах, которые перечислены в cdrTools .

Sub chToll()
ActiveTool = 6 ' cdrToolDrawBezier
End Sub

Если я ставлю 210 (у меня почему-то это выдает msgbox ActiveTool, а не 208 ) - инструмент не выбирается
X4 - версия 14.0.0.701, оба сервиспака стоят

 

[Sanchos]

Ответ: Включение 3-point curve через VBA

Если надо просто активировать этот инструмент, то можно использовать вот этот код:

Application.FrameWork.Automation.Invoke "39243caf-50fd-4d48-8d57-6c2d155f8f51"

 

[dear]

Ответ: Включение 3-point curve через VBA

Огромное спасибо, работает!!! А не подскажете, каким образом докопались до данных значений ( "39243caf-50fd-4d48-8d57-6c2d155f8f51")?

 

[Sanchos]

Ответ: Включение 3-point curve через VBA

...CorelDRAW Graphics Suite X4\Programs\UIConfig\CorelDRAW\DrawUI.xml