Corel FORUM

[michal.s]

Mam pytanie, czy dysponuje ktoś wiedzą na temat makra do usuwania pustych warstw?

[narvf]

http://coreldraw.com/forums/t/21522.aspx chyba tu jest :)

[michal.s]

narvf dzięki
Dokładnie o to mi chodziło.
Zamieszczam w razie gdyby ktoś szukał.
Jeszcze raz dziękuję

Kod:

Dim pg As Page Dim lyr As Layer Dim sr As ShapeRange Private Sub DelEmptyLayer() 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