Visio 2013 сдвиг при вставке

Ты крут, спасиб!

а как zoom убрать?

т.е. у меня масштаб, к примеру, 201%

после того, как я применяю скрипт фокус действительно переходит на выбранную фигуру, но при этом еще и масштаб увеличивается до 400%.

и попутно вопрос  - как сделать фокус не на саму фигуру, а на на одну из ее координат?

точнее мне для другой задачи нужно вернуть фокус на верхний левый угол выделения нескольких фигур.

а так молодец, не знаю как Вас по батюшке, но спасибо Surrogate™!

макрос который будет возвращать фокус на последнюю выделенную фигуру

Sub MoveFocusBack()

Dim shp As Shape

Set shp = ActiveWindow.Selection.PrimaryItem

ActiveWindow.SetViewRect shp.Cells("Pinx") - shp.Cells("Width") / 2, shp.Cells("PinY") + shp.Cells("Height"), shp.Cells("Width"), 2 * shp.Cells("Height")

End Sub

0. я так понимаю, рассказывать куда вставить этот код не надо ?

для ускорения работы можно добавить горячую клавишу запуска макроса.

1. нажать сочетание клавиш Alt+F8. на всплывшем окне (левая часть скрина) выбрать имя макроса ThisDocument.MoveFocusBack и нажать на клавишу Параметры

2. повесить вызов макроса на сочетание клавиш Ctrl+Shift+M

4.Нажать кнопку OK

PS Я не смог придумать событие которое будет запускать макрос автоматически :(

все возможно..))

попробую объяснить подробнее:

сейчас я создал свой собственный набор элементов/фигур в visio, у каждого элемента/фигуры свой собственный набор "данных фигуры".

При добавлении нового "участка схемы" в отдельно взятой фигуре меняется и ее текстовое поле и меняются ее "данные фигуры".

большая часть замены текста и в поле текста фигуры и в полях "данных фигуры" меняется через копипаст.

ну так просто напросто быстрее и меньше шансов ошибиться.

баг со смещением возникает именно в момент вставки текста в поле "текст фигуры", вне зависимости откуда копировать.

даже если у существующей фигуры поменять местами два слова, вырезав одно, переместить курсор в нужное место, вставить, то опять происходит смещение экрана.

с учетом того, что ранее в visio я имел баг с не сохранением самого файла visio, на который тратилось уйма времени и сил, а после обновлений MS данный баг пропал, но появился баг со смещением при вставке текста - он вообще не особо критичен при использовании ПО.

возможно он решится с каким нибудь очередным обновлением, может не решится - критичности особой нет.

но сам баг есть, и мое мнение - дело в ПО.

связывание фигур с данными я тоже обязательно когда нибудь начну использовать, спасибо за видео.

на данный момент я лишь могу из visio сделать выгрузку всех "данных фигур" и по определенному алгоритму в текст перевести все связи от объектов (какое оборудование от какого зависит).

з.ы.

если вдруг есть опыт в написание скрипта, который сам нарисует "типовую схему", предварительно в который надо будет лишь ввести hostaneme, IP, и прочее  - буду благодарен.

подобный скрипт могут сделать не только лишь все. Мало, кто может это делать !

похоже мы просто говорим на разных языках причем о разных предметах ! на англоязычном форуме мне казалось я больше вас понимаю :)

смысл последнего абзаца я не осилил !

Видео демонстрирующее связывание фигур с данными (самая суть начиная с 3минуты)