Результаты поиска

PrintMerge в помощь

American Retro Copyright (c) Gophmann A.L., 2007

... пример с картинками от Санчо

и вам спасибо ... от давно не включамого, грустившего старикана ASUS X50, ибо только на нём остался Corel X5

можно чуть иначе ... но будет ли быстрее??? Кроме вас - с жутким количеством слоёв в макете - не оценит никто Sub LayrsOn2() Dim iLayer As Layer Optimization = True EventsEnabled = False For Each iLayer In ActiveDocument.ActivePage.Layers iLayer.Visible = True Next EventsEnabled...

если вышеозначенный код с перебором "разукрасить фонариками" Sub LayrsOn() Dim i As Integer Optimization = True EventsEnabled = False For i = 0 To ActivePage.Layers.Count ActivePage.Layers.Item(i).Visible = False Next EventsEnabled = True Optimization = False...

кое-что можно добавить ... но, это для одной страницы - так и задумано?

Сейчас чем вы гасите? Что за код скрывается за нажатием ...

если ВСЕ слои сделать невидимыми - на что смотреть?

этого будет недостаточно?

В конце февраля передохнем от холода… берёт маркёр берет и садится на галеру падеж, мел, отсек и осел '))'

повесьте на кнопочку Sub Lay() Application.FrameWork.Automation.Invoke "d03aaa28-510d-4f11-acf2-4259388962d4" DoEvents Refresh End Sub для Х5 точно ... для иных версий - не факт до после

взяли Artemis Deco и немного поправили

версия 16

всё для людей :) но есть и такое альтернативное описание с важным замечанием

Вот вы ржёте ... а между тем уже и в Блокноте

навскидку FrizQuadrataC Albertus ... но без рашпиля не обойтись

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

нуу-у, блин ... если дело только в картинке

такить - Канадский городовой! - удаления и не будет, если явно не выбрать УДАЛИТЬ.(см. скриншот) Если всё ставили штатно - и дистрибутивы и патчи имеются - пусть попробует сам починить - нет?