Создание собственных горячих клавиш в MS Visio

В этой статье я хочу рассказать о том, как я долго шел к тому, чтобы оптимизировать свою работу в MS Visio.

Раньше, для того, чтобы, например, выровнять фигуры, я сначала каждый раз лез в меню Фигура -> Выровнять фигуры… Потом меня это достало и я сделал свой тулбар, на который вынес все действия с фигурами, которые использовались мною часто.

Позже, мне посчасливилось поработать в Adobe InDesign. И, помимо прочих плюсов, мне очень понравилась работа с горячими в InDesign. Я очень расстроился, узнав, что в Visio также просто настроить горячие клавиши нельзя.

Но! Тут мне на помощь пришел Google и подсказал как все это можно сделать Оказалось, что все-навсего надо написать макросы и назначить на них сочетания клавиш. Это я собственно и проделал, а сегодня представляю свой список макросов на суд общественности.

• Выравнивание по левой границе первой из выбранной группы фигур.

Sub AlignLeft()
‘ Сочетание клавиш: Ctrl+Shift+A
‘
Application.ActiveWindow.Selection.Align visHorzAlignLeft, visVertAlignNone, False

End Sub

• Исправление ошибок в работе курсора в документах, созданных на основе кривых шаблонов.

Sub ArrowKeys()
On Error Resume Next
Dim Counter
For Counter = 1 To Application.ActiveWindow.Page.Shapes.Count

Application.ActiveWindow.Page.Shapes.Item(Counter).OpenSheetWindow
Application.ActiveWindow.Shape.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU = 0
Application.ActiveWindow.Close
Next Counter

MsgBox «Done»

End Sub

• Выравнивание по правой границе первой из выбранной группы фигур.

Sub AlignRight()
‘ Сочетание клавиш: Ctrl+Shift+D
‘
Application.ActiveWindow.Selection.Align visHorzAlignRight, visVertAlignNone, False

End Sub

• Выравнивание по верхней границе первой из выбранной группы фигур.

Sub AlignTop()
‘ Сочетание клавиш: Ctrl+Shift+W
‘
Application.ActiveWindow.Selection.Align visHorzAlignNone, visVertAlignTop, False

End Sub

• Выравнивание по нижней границе первой из выбранной группы фигур.

Sub AlingBottom()
‘ Сочетание клавиш: Ctrl+Shift+X
‘
Application.ActiveWindow.Selection.Align visHorzAlignNone, visVertAlignBottom, False

End Sub

• Выравнивание по центру первой из выбранной группы фигур.

Sub AlignCenter()
‘ Сочетание клавиш: Ctrl+Shift+S
‘
Application.ActiveWindow.Selection.Align visHorzAlignCenter, visVertAlignNone, False

End Sub

• Выравнивание по середине первой из выбранных фигур.

Sub AlignMiddle()
‘ Сочетание клавиш: Ctrl+Shift+Z
‘
Application.ActiveWindow.Selection.Align visHorzAlignNone, visVertAlignMiddle, False

End Sub

• Перемещение выбранной фигуры на 1 позицию назад.

Sub BringBackward()
‘ Сочетание клавиш: Ctrl+Shift+K
‘
Application.ActiveWindow.Selection.SendBackward

End Sub

• Перемещение выбранной фигуры на 1 позицию вперед.

Sub BringForward()
‘ Сочетание клавиш: Ctrl+Shift+L
‘
Application.ActiveWindow.Selection.BringToFront

End Sub