V-Форум / Corel VBA / Тема: Огромная коллекция макросов для Corel12/X3

Re: Огромная коллекция макросов для Corel12/X3

 28/03/2011 13:45:15 #Link

wOxxOm

я давно обновил переключалку интерфейса - http://www.unleash.com/wo...

Re: Огромная коллекция макросов для Corel12/X3

 28/03/2011 13:57:38 #Link

Ander_OS

Проблема снялась. Панельки вернул через настройки, а тут и сам скрипт вдруг заработал. Осталось прокручивалку экрана в Х5 заставить работать. Кто знает?
Заранее благодарен.

Re: Огромная коллекция макросов для Corel12/X3

 29/03/2011 17:06:39 #Link

Ander_OS

Нацарапал простенькую. Не дождался профессиональную

Private Sub ScrollScreen_OS()
Dim Left, Top, Right, Bottom As Double

Left = 25
Top = ActivePage.SizeWidth * 25.4 / 17.7
Right = ((ActivePage.SizeWidth * 25.4 - 250) / 11.54) - 2
Bottom = -1

ActiveDocument.ActiveWindow.ActiveView.ToFitArea Left, Top, Right, Bottom
ActiveDocument.ActiveWindow.Refresh

End Sub

Re: Огромная коллекция макросов для Corel12/X3

 04/12/2019 14:39:14 #Link

Ander_OS

Цитата:
Ander_OS пишет:
Нацарапал простенькую. Не дождался профессиональную

Private Sub ScrollScreen_OS() Dim Left, Top, Right, Bottom As Double

Left = 25 Top = ActivePage.SizeWidth * 25.4 / 17.7 Right = ((ActivePage.SizeWidth * 25.4 - 250) / 11.54) - 2 Bottom = -1

ActiveDocument.ActiveWindow.ActiveView.ToFitArea Left, Top, Right, Bottom ActiveDocument.ActiveWindow.Refresh

End Sub


Друзья доброго времени суток!

Помогите разобраться с проблемой.
Рабочий 15 Корел при открытии какого то файла рухнул. Перестал сохранять файлы. Он лицензионный но тех поддержкой уже не может пользоваться. Хотя помочь пытались.
В результате Пришлось установить 10 винд.
Корел потихоньку худо бедно заработал, но перестал понимать некоторые скрипты. Один из низ написанный еще в 11 году. Это тот, что в цитате.
Вопрос? В чем может быть причина? Догадываюсь что не хватает какой-то библиотеки. Только какой?
Кто может помочь советом буду благодарен.
« 1 2 (3)

Источник: https://powerclip.ru/modules/newbb/viewtopic.php?topic_id=2127&start=20

Rambler's Top100