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

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

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

Данные фигуры, помимо текста в фигуре, также меняются в новой фигуре согласно новым значениям.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

з.ы.

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

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

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 Я не смог придумать событие которое будет запускать макрос автоматически :(