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

спасибо за попытку, но как я понимаю, данный скрипт копирует текст одной фигуры в другую.

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

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

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

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

дело в том, что вне зависимости от того, откуда происходит копирование текста, вставка в visio происходит именно с таким багом.

пробовали копировать из различных источником, самый простой из них - notepad.

так что Excel не спасет отца русской демократии..))

если фигуры не находятся внутри группы. то всё очень просто !

осталось  только опробовать написать скрипт на Visual Basic, но до этого я пока не дошел..))

Sub ForHamitka()

Dim txt As String, sh1 As Shape, sh2 As Shape

Set sh1 = ActiveWindow.Selection(1)

txt = sh1.Text

Set sh2 = ActiveWindow.Selection(2)

sh2.Text = txt

End Sub

Мои фигуры не находятся внутри групп.

Целью копирования является либо изменение существующих данных (к примеру изменения названия или IP адреса), а также добавление новых элементов через копирование старых и изменения в них данных.

Со слов Жука, он воспроизводит баг на такой же как у меня версии MS Visio, но не воспроизводит его в других версиях. Т.о. можно сделать вывод, что дело не в фигурах, а в поведении самого ПО.

1. что тогда мешает в экселе создать список адресов, имен железок и копипастить оттуда ? чтоб не было проблем с изменением шрифта после вставки, нужно в экселе установить нужный шрифт и его размер таким же, какой должен быть в схеме визио.
2. немного сложнее c использованием полей.