Zobacz temat - makro do usuwania pustych warstw

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

Makra - makro do usuwania pustych warstw

michal.s - 24 Luty 2014, 15:58
Temat postu: makro do usuwania pustych warstw

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

narvf - 24 Luty 2014, 16:06

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

michal.s - 24 Luty 2014, 22:45
Temat postu: makro do usuwania warstw

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