Threads in this forum
Related

GDG Macros Lesson 15 Part 2: Get Colors, turn them into a String, and place in a Collection

Sub GDG_John( )

Hi.

This is PART 2 so make sure you saw part one of lesson 15.

http://community.coreldraw.com/cfs-file.ashx/__key/CommunityServer.Discussions.Components.Files/704/3157.gdg_5F00_lesson_5F00_15_5F00_part2_5F00_get_5F00_colors_5F00_using_5F00_a_5F00_collection.swf

As always If anyone wants to contribute to these posts with any tips or things to add I think it would be great.

You could let us know:

-How you do it (or better).

-Your suggestions

-Any screw up I said or did in the video.

-Any extra tips about the subject.

-Feedback

~John

  • I made it this far until I realized the code probably doesnt work for x6.

     

    Option Explicit

    Private Sub cmdGetCols_Click()
        Dim s As Shape, sr As ShapeRange
        Dim strCols$
        Dim colCol1 As New Collection
       
        Set sr = ActiveSelectionRange
        For Each s In sr
            If s.Fill.Type = cdrUniformFill Then
                   strCols = s.Fill.UniformColor.ToString
            End If
           
        Next s
       
    End Sub

     

    Probably wont do me any good continuing this tutorial?

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.