OberonPlace.com Forums  

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

Thread Tools Search this Thread Display Modes
Old 25-01-2013, 12: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

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)
End Sub
Reply With Quote

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 18:30
Help - Creation of GMS - IVGGMSManager wOxxOm CorelDRAW/Corel DESIGNER VBA 6 02-07-2007 12:44
pdf file creation queries ozambersand General 0 12-05-2005 03:20
How to set palette as default palette with VBA ? hmalme CorelDRAW/Corel DESIGNER VBA 1 22-12-2004 13:26
New document creation problem ddonnahoe CorelDRAW/Corel DESIGNER VBA 2 20-11-2004 00:26

All times are GMT -5. The time now is 01:43.

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