OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > Corel PHOTO-PAINT > Macros/Add-ons

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 25-11-2014, 10:51
ddonnahoe's Avatar
ddonnahoe ddonnahoe is offline
Senior Member
 
Join Date: Jan 2004
Location: Louisville, KY
Posts: 552
Send a message via ICQ to ddonnahoe Send a message via AIM to ddonnahoe Send a message via MSN to ddonnahoe Send a message via Yahoo to ddonnahoe
Default Create a New Object layer from Mask

This is my first attempt at PhotoPaint macros. I write them all the time for Draw, but it's a little different in Paint. I'm using X7.
Code:
Sub ClipWhite()
    Dim doc As Document, lyr As Layer
    
    Set doc = ActiveDocument
    Set lyr = doc.ActiveLayer
    doc.Mask.Invert
    
    'create new object from selection
        
    'create mask from active object
        lyr.CreateMask
        
    doc.CropToMask
    
    'delete original object
        lyr.Delete
        
    doc.Save
    
    If Application.Documents.Count = 0 Then
        Set doc = Nothing
        Application.Quit
    End If
End Sub
I have this code that inverts the active mask and crops the image to the mask, but now I want to edit it to create a new object from the mask after the invert, delete the original background layer.

I'm doing it this way rather than making the background layer and object, since that effectively removes the mask selection.
__________________
Sean
Waiting for a ride in the T.A.R.D.I.S.
Reply With Quote
Reply

Tags
layers, mask, objects, photopaint x7


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Jump to layer by Selected Object dungbtl CorelDRAW/Corel DESIGNER VBA 3 01-04-2014 12:51
Temporary Object without adding to layer davidpmp Macros/Add-ons 0 13-01-2012 20:39
Requiring a Mask PAnderson Corel Photo-Paint VBA 1 21-05-2009 11:20
Get Text from CSV-File and create Graphics-Object infers Graphic-Text anlulu CorelDRAW/Corel DESIGNER VBA 3 14-03-2009 03:02
Create an object from class defined in another GMS zlatev CorelDRAW/Corel DESIGNER VBA 5 27-02-2005 11:51


All times are GMT -5. The time now is 07:36.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com