OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > General

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 25-01-2013, 13:08
ostwald ostwald is offline
Junior Member
 
Join Date: May 2012
Location: peru
Posts: 5
Post macro palette creation

' shelbym '
he was the q wrote this code which is great
.. I have doubt ..
as I could do to carry a 'frame' colors
q were created within the document .......
here are some picture


Code:
Sub CreatePalette_Click()
    Dim s As Shape
    Dim sr As New ShapeRange
    Dim lr As Layer
    Dim pal As Palette
    
    Set lr = ActivePage.CreateLayer("PowerClip")
    
    For Each s In ActivePage.Shapes
        If Not s.PowerClip Is Nothing Then
            s.PowerClip.Shapes.FindShapes.CopyToLayer lr
        End If
    Next s
    
    Set pal = Palettes.CreateFromDocument("Document Colors", _
              Application.UserDataPath & "Palettes\DocColors.cpl", True)
              
    lr.Delete
End Sub
Reply With Quote
Reply


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
Not log or Un-log shape creation? runflacruiser CorelDRAW/Corel DESIGNER VBA 4 17-07-2011 19:30
Help - Creation of GMS - IVGGMSManager wOxxOm CorelDRAW/Corel DESIGNER VBA 6 02-07-2007 13:44
pdf file creation queries ozambersand General 0 12-05-2005 04:20
How to set palette as default palette with VBA ? hmalme CorelDRAW/Corel DESIGNER VBA 1 22-12-2004 14:26
New document creation problem ddonnahoe CorelDRAW/Corel DESIGNER VBA 2 20-11-2004 01:26


All times are GMT -5. The time now is 13:41.


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