[CDR 2017-2021] Записать в макрос обновление экрана

[Slx1]

Господа, можно как то прописать в данную конструкцию обновление экрана?

Sub SwitchRulersGuidelines()
    If ActiveDocument Is Nothing Then Exit Sub
    Application.FrameWork.Automation.Invoke "4a490617-54c0-4263-99ae-8da808884f50"
    Application.FrameWork.Automation.Invoke "fc6531ef-665a-4548-b357-eda407a8dbd6"
End Sub

 

[dastin]

Application.Refresh
не пробовали?

 

[Slx1]

Application.Refresh
не пробовали?

Не работает(

 

[dastin]

... а подробнее можно - что за invoke используете ... включение выключение линеек и направляющих?

 

[Slx1]

... а подробнее можно - что за invoke используете ... включение выключение линеек и направляющих?

да, после применения направляющие не перерисовываются, приходиться каждяй раз Сtrl+W нажимть

 

[dastin]

можно ещё
ActiveWindow.Refresh

The following VBA example redraws the active document window.

Sub WindowActive()
ActiveWindow.Refresh
End Sub

 

[dastin]

или в лоб
SendKeys "^W"

 

[Slx1]

можно ещё
ActiveWindow.Refresh

Не хочет зараза((

 

[Slx1]

или в лоб
SendKeys "^W"

Тоже никак(

 

[Slx1]

да, после применения направляющие не перерисовываются, приходиться каждяй раз Сtrl+W нажимть

Привет на версии X6 все отлично без доп движений

 

[dastin]

в 2019 надо пробовать - сейчас недоступна - ночь на дворе ...
вот такую комбинацию потестировать - с довеском

SendKeys "^W"
SendKeys "{ESC}", False
а затем
ActiveWindow.Refresh или просто Refresh

 

[Slx1]

в 2019 надо пробовать - сейчас недоступна - ночь на дворе ...
вот такую комбинацию потестировать - с довеском

SendKeys "^W"
SendKeys "{ESC}", False
а затем
ActiveWindow.Refresh или просто Refresh

Не хочет((

Sub SwitchRulersGuidelines()
    If ActiveDocument Is Nothing Then Exit Sub
    Application.FrameWork.Automation.Invoke "4a490617-54c0-4263-99ae-8da808884f50"
    Application.FrameWork.Automation.Invoke "fc6531ef-665a-4548-b357-eda407a8dbd6"
    SendKeys "^W"
    SendKeys "{ESC}", False
    Refresh
End Sub

 

[dastin]

Не хочет((

сейчас только на Х5 код потестировать могу - как говорится - без Б - входит и выходит - даже без SendKeys с одним Refresh

 

[dastin]

на 2019 линейки вкл/выкл работает, видимость направляющих по факту переключается,
на мониторе обновления не происходит

cross-ass методы по переключению вида на каркас и обратно,
видимости целиком слоя с направляющими или зуммирования
эффекта не приносят - видимость направляющих не обновляется

ручной CTRL+W, кручение колеса мыши, ручной Esc или просто переход на другую страницу и обратно
после выполения кода приводит к адекватному отображению
как-то так с 2019

 

[Slx1]

на 2019 линейки вкл/выкл работает, видимость направляющих по факту переключается,
на мониторе обновления не происходит

cross-ass методы по переключению вида на каркас и обратно,
видимости целиком слоя с направляющими или зуммирования
эффекта не приносят - видимость направляющих не обновляется

ручной CTRL+W, кручение колеса мыши, ручной Esc или просто переход на другую страницу и обратно
после выполения кода приводит к адекватному отображению
как-то так с 2019

Значит ничего нельзя сделать?

 

[dastin]

Значит ничего нельзя сделать?

если только такое устроит - жать лишний раз ОК

Sub SwitchRulersGuidelines()
    If ActiveDocument Is Nothing Then Exit Sub
    Application.FrameWork.Automation.Invoke "fc6531ef-665a-4548-b357-eda407a8dbd6"
    Application.FrameWork.Automation.Invoke "4a490617-54c0-4263-99ae-8da808884f50"
    MsgBox "OK"
    SendKeys "{ESC}", False
    Refresh
End Sub

 

[dastin]

Значит ничего нельзя сделать?

и если таки два раза жать мышом, то чего бы не поместить рядом две штатных кнопки
переключения видимости линеек и напрвлящих

 

[_MBK_]

В порядке постукивания по шине - из макроса вызвать внешний модуль, шлющий сообщение этому контролу, например, на ahk

 

[dastin]

я бы остановился на исходных строках ...
вызов макроса с последующей прокруткой колеса мыши в 2019 - по щелчку туда и обратно