Новая кнопка в своей панели инструментов

[dandy]

Хочу вытащить в свою панель инструментов стрелку. ИМЕННО ТРЕТЬЮ
Меню, выделенное красным при настройке недоступно (только раскрывающееся меню).
Как ее вытащить в кнопки?

 

[Fog_patch]

Наверно это невозможно. Впрочем можно вытащить макрос. Идём в макросы Alt+F11 > браузер объектов F2 > ищем ArrowHeads > смотрим справку > видим такой текст:

Sub ItemArrowHead()
Dim s As Shape
For Each s In ActiveDocument.Selection.Shapes
  If s.Outline.Type = cdrOutline Then
   s.Outline.EndArrow = ArrowHeads.Item(3)
  'can also be referenced as s.Outline.StartArrow = ArrowHeads (5)
  End If
Next s
End Sub

меняем Start на End, а 5 на 3 (я уже поменял)
вытаскиваем кнопку макроса

 

[dandy]

сенкс, помогло!
вопрос в догонку:
возможно ли сменить для этой команды кнопку? Т. е. задать свою какую-нить?

 

[Fog_patch]

Вопрос не понят. Визуально кнопку можно поменять на предустановленные или нарисовать самому.

 

[Sh]

вытащить в свою панель инструментов стрелку

Можно создать стиль Graphic с нужными свойствами и вынести на панель инструментов его кнопку

 

[Fog_patch]

Нет под рукой корела, а можно стиль задать только для стрелки? Ну чтоб толщина и прочие атрибуты линии оставались нетронутыми стилем?


Не по теме:
Кстати, недавно случайно обнаружил, что стили текста в таблицах не работают. Бардак.

 

[dandy]

расшифровываю вопрос...
Вытащил кнопку макроса на панель - все Ок.
Хочу заменить вид этой кнопки (для макросов они все одинаковые) на что-нить другое.
Вся панель - на рисунке. Красным обведена кнопка макроса. Вот ее заменить на что-нить яркое, не такое серое )))

 

[Fog_patch]

Да

Визуально кнопку можно поменять на предустановленные или нарисовать самому.

нарисовать можно прямо в диалоге смены кнопки

 

[dandy]

Сорьки за офтоп - разобрался )

 

[Sh]

а можно стиль задать только для стрелки? Ну чтоб толщина и прочие атрибуты линии оставались нетронутыми стилем?

Увы, только всё вместе