CorelPhotoPaint - обрезка изображения по объекту

Sub TransDel()

Dim doc As Document

Dim lr As Layer

Set doc = ActiveDocument

Set lr = ActiveDocument.ActiveLayer

lr.CreateMask

doc.CropToMask

doc.Mask.Delete

doc.Save

End Sub