Corel FORUM Strona Główna Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych

FAQFAQ  SzukajSzukaj  UżytkownicyUżytkownicy  GrupyGrupy
RejestracjaRejestracja  ZalogujZaloguj  DownloadDownload

Poprzedni temat «» Następny temat
Operacje na warstwach
Autor Wiadomość
Cysorz 



Pomógł: 205 razy
Dołączył: 01 Sty 2011
Posty: 3129
Skąd: Kraków
Wysłany: 4 Październik 2019, 21:12   Operacje na warstwach

Ja nie znam się zbyt dobrze na pisaniu makr, więc być może moje pytanie jest banalne a być może niewykonalne - nie wiem.
Czasami mam taką sytuację, że w jednym pliku muszę scalić kilka dokumentów, często z różnych wersji a nawet różnych programów. O ile to nie problem, to wynik końcowy jest "różny". Przykładowo przy importowaniu różnych plików w Menedżerze Warstw robi się niezły bajzel - np. zmieniają one swoją kolejność. Przy stosowaniu głównej warstwy jako "drukowalnej" jest to już jest problem - przykładowo teksty zamiast NAD aplą lądują POD nią i trzeba to wszystko zmieniać ręcznie na każdej stronie. Mało tego - na jednej stronie może być kilka warstw o tej samej nazwie. Przy kilkuset stronach w jednym dokumencie to już spora niedogodność...
Stąd pytanie: czy znacie takie makro, które wybraną warstwę przenosi bezwzględnie np. na samą górę lub na sam dół?
Pomocniczym byłoby także takie, które kasuje wszystkie warstwy, na których nie ma żadnych obiektów.

Cały czas chodzi mi oczywiście o takie makro, które działałoby na wszystkich stronach naraz a nie na pojedynczych jednorazowo.
 
 
michal.s 
Praktyk


Wersja CorelDRAW: x4
Pomógł: 1 raz
Dołączył: 01 Lut 2012
Posty: 65
Skąd: Poznań
Wysłany: 4 Październik 2019, 23:52   

Tutaj masz kod do usuwania warstw na których nie ma żadnych obiektów.

Kod:
Sub UsunWarstwyBezObiektow()

For Each pg In ActiveDocument.Pages
    For Each lyr In pg.Layers
        If Not lyr.IsSpecialLayer Then
        Set sr = lyr.Shapes.All
            If sr.Count = 0 Then
            lyr.Delete
            End If
        End If
   Next
Next

End Sub
 
 
Cysorz 



Pomógł: 205 razy
Dołączył: 01 Sty 2011
Posty: 3129
Skąd: Kraków
Wysłany: 5 Październik 2019, 14:44   

Ładnie działa, dziękuję!
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Nowe zasady dotyczące cookies. Wykorzystujemy pliki cookies, aby nasz serwis lepiej spełniał Państwa oczekiwania. Można zablokować zapisywanie cookies, zmieniając ustawienia przeglądarki.
         
Strona wygenerowana w 0.07 sekundy. Zapytań do SQL: 13