Этот браузер больше не поддерживается.
Выполните обновление до Microsoft Edge, чтобы воспользоваться новейшими функциями, обновлениями для системы безопасности и технической поддержкой.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Доброе время суток
в наличии есть MS Visio 2013
данное приложение активно используется для создание структурных схем сети
схемы очень большие, содержат несколько тысяч различных фигур
с недавних пор заметил некий баг:
при вставке текста в фигуру (копировать, вставить), область на экране сдвигается вправо вниз, т.о. сама фигура, куда только что вставили текст, исчезает из поля видимости
даже записал видео, где воспроизведен данный баг:
https://yadi.sk/i/jURyD5J93MH6ZB
прошу помочь устранить подобное поведение
заранее спасибо.
Профессиональный инструмент для построения диаграмм, который помогает пользователям визуализировать сложную информацию с помощью простых для понимания диаграмм.
Заблокированный вопрос. Этот вопрос был перенесен из сообщества службы поддержки Майкрософт. Вы можете проголосовать о его полезности, но не можете добавлять комментарии или ответы, а также подписаться на этот вопрос.
Попробуйте задать Ваш вопрос, на англоязычном ресурсе TechNet.
Данный Форум предназначен для домашних Пользователей.
лайков здесь нет. можно только отметить ответ как "Это помогло решить проблему".
в нашем случае это уже был дополнительный вопрос.
если будет желание и возможность покопаться с VBA в Visio рекомендую русскоязычный форум пользователей Visio .
можно сделать с применением любого из 3 вышеуказанных методов!
на мой взгляд самым самым простым и универсальным будет вариант
использования метода ScrollViewTo с указанием на верхний левый угол
временной фигуры, содержащей все выделенные фигуры
Sub Scroll_ViewTo()
If ActiveWindow.Selection.Count = 0 Then MsgBox "Нет выделенных фигур": Exit Sub
Dim shp As Shape
Set shp = ActiveWindow.Selection.Group ' создаем временную фигуру
ActiveWindow.ScrollViewTo shp.Cells("Pinx") - shp.Cells("Width") / 2, shp.Cells("piny") + shp.Cells("Height") / 2 ' наводим фокус налево-вверх
shp.Ungroup ' разгруппировываем временную фигуру
End Sub
в упор не вижу как тут у вас поставить "like" ответам, скажу так: Спасибо!
как только я доберусь до VBA (пока чет вообще не до этого), обязательно использую всю полученную инф.
допустим
как gif сюда вставить?
покажу еще раз