Этот браузер больше не поддерживается.
Выполните обновление до 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 .
в упор не вижу как тут у вас поставить "like" ответам, скажу так: Спасибо!
как только я доберусь до VBA (пока чет вообще не до этого), обязательно использую всю полученную инф.
можно сделать с применением любого из 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
выделенные фигуры можно сгруппировать (временно). по умолчанию фокус наводится на центр фигуры. уточни что в твоем понимании означает фокус на левую верхнюю часть:
- должен ли при этом изменяться масштаб отображения, чтоб все выделенные
фигуры были видны после наведения фокуса
нет, не должен.
мне достаточно просто чтобы стало видно верхнюю левую (или правую, или центр - не суть) выделения нескольких фигур.
Думаю что крайние точки выделения проще всего.
координаты выделения должны же где то храниться, как их программно получить?
- эта левая верхняя часть должна находиться в центе окна или где
да не суть как, главное чтобы в окне было видно.
Масштаб чтоб не менялся.