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

Анонимные
2017-08-24T04:27:25+00:00

Доброе время суток

в наличии есть MS Visio 2013

данное приложение активно используется для создание структурных схем сети

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

с недавних пор заметил некий баг:

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

даже записал видео, где воспроизведен данный баг:

https://yadi.sk/i/jURyD5J93MH6ZB

прошу помочь устранить подобное поведение

заранее спасибо.

Microsoft 365 и Office | Visio | Для бизнеса | Windows
Microsoft 365 и Office | Visio | Для бизнеса | Windows

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

Заблокированный вопрос. Этот вопрос был перенесен из сообщества службы поддержки Майкрософт. Вы можете проголосовать о его полезности, но не можете добавлять комментарии или ответы, а также подписаться на этот вопрос.

Комментариев: 0
Ответ, принятый автором вопроса
Анонимные
2017-08-24T05:55:37+00:00

Попробуйте задать Ваш вопрос, на англоязычном ресурсе TechNet.

Данный Форум предназначен для домашних Пользователей.

Этот ответ помог вам?

Один пользователь счел этот ответ полезным.
Комментариев: 0

Дополнительные ответы: 73

Сортировать по: Новейшие
Наиболее полезные Новейшие Самые старые
  1. Анонимные
    2017-12-20T14:26:49+00:00

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

    1. должен ли при этом изменяться масштаб отображения, чтоб все выделенные

    фигуры были видны после наведения фокуса

    1. эта левая верхняя часть должна находиться в центе окна или где

    Этот ответ помог вам?

    Комментариев: 0
  2. Анонимные
    2017-12-20T13:31:14+00:00

    крут крут

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

    а про сдвиг экрана по координатам выделенного фрагмента не подумал?

    Этот ответ помог вам?

    Комментариев: 0
  3. Анонимные
    2017-12-20T11:10:13+00:00

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

    Есть варианты и попроще

    Метод CenterViewOnShape

    Dim shp As Shape

    Set shp = ActiveWindow.Selection.PrimaryItem

    ActiveWindow.CenterViewOnShape shp, visCenterViewSelectShape

    Метод CenterViewOnShape

    Dim shp As Shape

    Set shp = ActiveWindow.Selection.PrimaryItem

    ActiveWindow.ScrollViewTo shp.Cells("Pinx"), shp.Cells("piny")

    ActiveWindow.CenterViewOnShape shp, visCenterViewSelectShape

    внимание самое интересное:

    на моей стороне можно вернуть фокус на фигуру без использования каких бы то ни было макросов !

    После того как вид сместился, просто нажать клавишу F2 или любую из управляющих клавиш Home/End/PageUp/PageDn/←/↑/↓/→.

    Этот ответ помог вам?

    Комментариев: 0
  4. Анонимные
    2017-12-19T13:56:29+00:00

    дык, делов то три строчки кода !

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

    Sub MoveFocusBack()

     Dim shp As Shape

     Dim zm As Double

     zm = ActiveWindow.Zoom ' определяем текущий масштаб на листе

     Set shp = ActiveWindow.Selection.PrimaryItem

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

     ActiveWindow.Zoom = zm 'изменяем текущий масштаб на листе на предыдущее значение

    End Sub

    по второй части надо поиграться

    Этот ответ помог вам?

    Комментариев: 0