Макрос: быстрый вызов Split для бленд

[wOxxOm]

часто делаю split (разделение) для бленд, состоящих из кучи точечек (как в растре), ну вот бывает поймаешь место где надо немного подвигать, и нужно, следовательно, разделить бленду, а значит, глаза побежали в тулбар искать мелкую блендовую менюшку, в ней кнопку "split", а место уже потерял, хоть стикер к экрану приклеивай! Весь год изощрялся в визуальной локации, а сегодня подумал, что хватит и написал мелкий макрос который вызывает команду Split (команда не входит в список элементов интерфейса, которым можно назначить клавишу, увы).

Макрос BlendSplit я повесил на кнопку Alt-S
Работает в Х3 Sp2

Sub BlendSplit()
 Application.FrameWork.Automation.Invoke "6dd9cba5-ae47-48e6-9abf-1dbd683da2c7"
 SendKeys " {TAB} "
 End Sub

Кстати у меня бленды все идут с авто-вращением по пути, а в кореле после split созданная фигура бленда "неустойчива", то есть при повороте/смещении она дополнительно проворачивается на случайный угол. Так было 2 года назад, но тут я был умнее и написал сразу макрос, который надо запускать вручную после split при выбранной фигуре бленды.

Sub fixBlendControlShapeAngle()
 If ActiveShape Is Nothing Then Beep: Exit Sub
 ActiveDocument.BeginCommandGroup "fix blend control shape angle"
 a = ActiveShape.RotationAngle
 ActiveShape.RotationAngle = ActiveShape.RotationAngle + 1
 ActiveShape.RotationAngle = a
 ActiveDocument.EndCommandGroup
 End Sub