Тяжелый файл cdr
spiny / 16.11.2010, 15:49/00:41
Форум:
Здравствуйте, пожалуйста подскажите, как сделать cdr-файл легче? К примеру, у меня отрисованный логотип, одноцветный, простенький, а весит очень много, 1,5 мб, хотя там нечему столько весить. Можно как-то сделать размер поменьше?
Ну из известного — стили (цветовые и просмотра)
Вот что поиск по сайту подсказал:
http://cdrpro.ru/forum/5-206-1
http://www.cdrpro.ru/forum/5-392-1
Огроменное спасибо!!! Просто спасли меня
как бы еще корел обучить чтобы он сразу их не загружал.
где-то тут на форуме видел тему про это а теперь не могу найти :(
убивать стили просмотра при загрузке можно следующим образом:
если вы немного знакомы с ВБА, открываете редактор макросов (Alt-F11)
в списке проектов находите GlobalMacros (GlobalMacros.gms)
дважды клацаете мышкой, выбираете ThisMacroStorage
в открывшемся окошке слева вверху в списке заменяете General на GlobalMacroStorage
а справа в списке отыскиваете строку DocumentOpen
в появившуюся процедуру
Private Sub GlobalMacroStorage_DocumentOpen(ByVal Doc As Document, ByVal FileName As String)
копируете код, упомянутый Sancho, т.е.
Private Sub GlobalMacroStorage_DocumentOpen(ByVal Doc As Document, ByVal FileName As String)Dim Vws As Views
Set Vws = ActiveDocument.Views
While Vws.Count <> 0
Vws(Vws.Count).Delete
Wend
Set Vws = Nothing
End Sub
теперь при открытии любого документа стили просмотра будут убиваться
огромное спасибо! после работы попробую.
а то уже опух от файлов одной клиентки, которая постоянно таскает файлы с этим барахлом. кому интересно прилагаю файло на экспертизу.
такое ощущение, что она пользует этот вью менеджер вместо зум тула и сослепу лупит не по значкам с лупой, а по этим плюсам и минусам, отчего в файле уже бессчетное количество стилей.
а еще есть подозрение что возможно это все барахло как-то записывается в дефолтные настройки.
Добавлено (18.11.2010, 14:05)
---------------------------------------------
в 13 кореле вышеприведенный макрос не сработал :(
при этом файл открывался еще дольше чем обычно.
Добавлено (18.11.2010, 14:07)
---------------------------------------------
в смысле все миллион стилей просмотра остались
mmgs, загрузил твой файл с мегатканью
открыл - ни одного стиля !
после первого запуска Корела макрос может не сработать по каким-то причинам, видимо, пока не активируется подсистема VBA
попробуй запусти какой-нибудь макрос, или запусти редактор VBA, потом просто открой любой документ и проверь еще раз.
я тоже пользуюсь Х3
Добавлено (19.11.2010, 12:13)
---------------------------------------------
кстати, при создании документа куча стилей также появляется
поэтому там же, в GlobalMacroStorage создайте процедуру
Private Sub GlobalMacroStorage_DocumentNew(ByVal Doc As Document, ByVal FromTemplate As Boolean, ByVal Template As String, ByVal IncludeGraphics As Boolean)GlobalMacroStorage_DocumentOpen Doc, FileName
End Sub
чтобы также убить все стили в зародыше, не дублируя код.
А в конец процедуры GlobalMacroStorage_DocumentOpen добавьте строку
ActiveWindow.ActiveView.ToFitAllObjects
это позволит при загрузке документа отобразить сразу все видимые объекты (не придется лишний раз нажимать F4)
прям интересно стало. надо поизучать скриптинг корела :)
Это не "скриптинг", это "макросинг", если можно так сказать.
Макросы и скрипты в Кореле это разные вещи!