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

Позже, мне посчасливилось поработать в 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

НО! Я наткнулся на крутую фичу инструмента «Direct Selection Tool», по стандарту висящего на кнопке «A». Если с помощью этого элемента выделить прямоугольник, кликнув по одной из его сторон, и потом нажать на кнопку «delete», то границы у стороны, по которой был сделан клик удалится.

Но это еще не все:

1. Изменение параметров скругления углов прямоугольника не действует на углы прямоугольника с удаленной границей.
2. Изменение размеров объекта не искажает параметры скругления углов прямоугольника.

Итог: делать табы становится легко и приятно

Далее прилагаю немного дополненную инструкцию (оригинал можно найти, пройдя по ссылке, указанной выше), с помощью которой можно самому исправить эту проблему.

1. Открываем исходные файл шаблонов — это файлы с расширением VST. Они находятся в папке Office 2007/Office12/1049.
   
2. Сохраняем файлы с фигурами в формате XML (XML–шаблон) — это файлы с расширением VTX. Важно именовать XML-файлы теми же именами, что были у исходных шаблонов.
   
3. Далее, с помощью XML-редактора (я использовал Altova XMLSpy, в инструкции использовался MS XML Notepad 2007) открываем сохраненные ранее XML-шаблоны.
4. Жмем Ctrl+H (ну или «Find & Replace«, если кому-то так удобнее). В поле Find what вводим «<Flags>1</Flags>«, а в поле Replace With — «<Flags>0</Flags>«. После нажимаем на кнопку Replace All и сохраняем получившийся результат.
   
5. Открываем исправленный XML-шаблон в Visio и сохраняем их как шаблоны – это файлы с расширением VST. Важно называть новые шаблоны теми же именами, что были и у исходных шаблонов, которые мы правили.
   
6. Полученные шаблоны копируем с заменой в папку, из которой мы извлекали их в начале — Office 2007/Office12/1049.

Важно! Ниже приведен код макроса, исправляющий проблему с поведением курсора в файлах, построенных на основе шаблонов с ошибкой. Решение, опять же, не мое. Решение также было найдено на форуме ru-board.

Sub Cursor()
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

Теперь самое главное
Я уже проделал всю эту скучную и однообразную работу. Поэтому могу поделиться готовыми к использованию исправленными шаблонами (просто напишите мне на электронную почту: escapedslippers -at- gmail.com). К сожалению, по непонятным мне пока причинам, некоторые шаблоны открываются с ошибками. И поэтому к ним приложены исходные версии шаблонов (с меткой old). И так, сейчас у меня в наличии следующие файлы:

1. Исходные версии шаблонов (VST).
2. Неисправленные версии XML–шаблонов (VTX).
3. Исправленные версии XML–шаблонов (VTX).
4. Исправленные версии шаблонов (VST).

Замечания и дополнения приветствуются.

UPD. С выходом Visio 2010 проблема стала неактуальной, но файлы у меня все равно есть.  Пишите

Ниже показан более-менее стандартный вариант, который используется на многих устройствах:

Все мы прекрасно знаем основную проблему пользователей, возникающую при использовании подобных устройств: маленькие кнопки на экране, в которые трудно попасть. Несовершенность этого способа ввода символов приводит зачастую к многочисленным ошибкам при наборе символом и раздражению.

Моя идея проста как 2×2: надо применить к клавиатуре принцип построения облака тэгов:

Принцип работы следующий:

1. В начале все кнопки имеют одинаковый размер.
2. По мере работы с клавиатурой система собирает статистику о частоте нажатия на кнопки.
3. Частота нажатия считается как количество кликов за определенный период (например, неделя).
4. Согласно собранной статистика система меняет размеры кнопок в определенных пределах. Кнопки, которые используются чаще, имеют больший размер и, например, другой цвет фона и границы. Кнопки, используемые реже менее заметны, но в то же время их легко найти.

Пример реализации можно увидеть ниже: